





MM3 MARGIN MARKER 


“Le Magic Margeur” 


Le MM3 permet enfin de positionner et d’aligner une feuille ou un 
document (jusqu’à 100 gr) dans l'imprimante PCW 8256 ou 8512. 
Le MMB3 est un margeur qui maintient la feuille perpendiculaire 
pendant toute la durée d'impression. 
Le MM est utilisable pour des documents à partir de 45 mm. 
Le MM affiche les 4 pas utilisés par l'imprimante, chaque pas est 
gradué pour l’utilisation avec Loco Script 2. 
Le MMS est un guide de haute précision, fabriqué en plastique 
ABS, trés robuste et dont la finition est identique à celle de l’impri- 
mante. 
Le MM3 possède des encoches qui permettent de repérer sur la 
règle (au crayon) les positions les plus utilisées. 
Le MM3 est un margeur unique en france. Sa facilité d'utilisation et 
sa rentabilité sont immédiates. MMB3 est : 
Le MM3 deviendra rapidement l'outil complémentaire et * simple, e robuste, ‘efficace, 
indispensable de votre PCW 8256 ou 8512. * précis, * indispensable. 


_ 
… .… 


dé 
_ 





BON DE COMMANDE POUR UN ESSAI GARANTI DE 10 JOURS 
Je commande à l'atelier audio - B.P. 912 - 08000 Charleville-Mézières avec droit de retour pendant 
10 jours et remboursement intégral si je ne suis pas satisfait : 


©) 1 MM8 à 190,00 FTTC É 
MODE DE RÉGLEMENT Code Postal : 


© 3MMS3 (165,00 x 3) = 495,00 F.TTC = Chèque bancaire vil 
ille : 


+ Port et Emballage O C.C.P., D Mandat-Lettre 
TOTAL D Contre remboursement (+ 20 F) Signature : 








Adresse : 
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COMMANDEZ PAR TELEPHONE !* 


TOUS LES PRODUITS DE L'ECHO DU PCW 
_= PLUS RAPIDE AVEC LA CARTE VISA/CARTE BLEU 














24 HEURES 1! 


mu OO OS DU DU DU D D D DU DU DU UN DU Ou un mu un mu mu D 


“POUR VOS COMMANDES TELEPHONIQUES , 1 SEUL NUMERO : 











Q 551001 AMSTRAD PCW 8256 1 lecteur 
Ÿ 551002 AMSTRAD PCW 8512 2 lecteurs 
551003 AMSTRAD PCW 9512 
551101  FD-2- 2ème Lecteur pour PCW 8256 
© 551102  FD-4- 2ème Lecteur pour PCW 9512 
Q 551103 Lecteur 51/4 PACE (2ème) lecteur) 





” DMP 3160 Amstrad 80 colonnes 


Q 554004  DMP 4000 Amstrad 132 colonnes 
Q 554005  LQ 3500 Amstrad 80 col 

Q 555001 120 D Citizen 80 col 

© 555002  LSP-100 Citizen 80 col 

Q 555003  OVERTURE 110 Citizen à LASER 


* précisez le modèle (8256-8512 ou 9512) 


Q 5102362  3D CLOCK CHESS - Jeu d'Echecs 





GE:FL solitaire 
ASIC:COMPILEUR- Otiltaire 
S CHESS - Jeux d'Echecs 


tion base de données 
] LER Compilateur DBASE Il 
TAËOGS DEVIS TRAVAUX 
W - D.A.0. 








Q 5104253 LECTURE EFFICACE 

Q 5102794 LIGHT PEN - Stylo optique+D.A.0. 

© *5104006 MODULE CERFA - Bilan 

Q*5114177  MULTIPLAN 

0 5104688 NEWS DESK INTERNATIONAL 

Q 5103408  NOSTRADABUR Prév. Entreprise 

Q 5102638  OPTICAISSE - Caisse enregistrouse 
Q 5103951 ORPHEE 

Q 5102916 PAIE - Traitement de la Pale/Muitipian 
Q 5102336  PASCAL/MT+ - Compil.-désassemb. 
© 5104172 PAWN 

‘5103118  PAYE CRESUS - Gestion de salaires 
Q 5103563 PCW GRAPH 

Q 5102363 POCKET BASE - Base de données 

Q 5102%6 POCKET CALC - Tableur 

Q 5102184 POCKET WORDSTAR -Trait. de textes 
0 *5103594 ROTATE 

Q *5104003 STARGLIDER 

© 5103620 STRIKE FORCE HARRIER Simulateur vol 
À 5102639  TELETUTOR - Apprentissage clavier 
© 5102875  TOMAHAWK Simulateur de vol en 3D 
Q 5103950 TOP SECRET - Jeu 


Q 5103699 TRIVIAL POURSUIT - Jeu 








FICHE - Gestion de Fichiers 


Q 5150002 MAILING - Mailing pour Locoscripti 
Q 5150003  TASWORD 8000 - Trait. Texte Pro 
Q 5150004  TASPRINT Caractères pr fichier ASCH 
HSE SYNEA - Serveur Minitel 

*5150009  MYNEA - Emulateur de Minitel 
Q 5150011  PCW PAINT - Utilitaire D.A.O. 
Q*5150012 LANGUAGE C - Compil. C en anglais 


SNOOKER - Jeu de réflexion 

SPOOL - Utilitaire d'imprimante 
GRAPHIC MAGK - Routines assemb. 
DEVPAV 80 (en anglais) 

ASTRO | - Astrologie 

ASTRO Il - Astrologie 

ASTRO COUPLE - Astrologie couples 
ASTRO III - Astro I Astro le 
BOURSE 2000 - Gestion boursière 
HERAKLIOS - Utilit. gestion disk 
GRAPHOLOGIE + BIORYTHMES 

ALL YOU EVER 


RUBIS Compta. familiale ou PME 
AGENDOR - Gestion de fichiers 


TETRIS nouveau jeu soviétique 
Apprentissage du Basic + Locoscript 


* Uniquement pour ancienne prise Port extension 
{pour prise SCHNEIDER, prévoir Convertisseur). 


Q 5250002 Rallonge imprimante 2 cables de 1m 

Q 5250003 Jeu de 3 housses super luxe PCW 8256 
Q 5250004 Pied orientable multi-directionel 
Q*52ICA04 interface Joystick MX-770 


Q*52ADD18 Joystick MX-880 





“521102 Interface Série/Paral. Imprim. AMSOFT 
“521103 Interface RS-232 Imprim.+Minitel 
5211101 Ruban NOIR imprim. 8256/8512 

Q 5211102 Ruban ROUGE 

Q 5211103 Ruban BLEU 

Q 5211104 Ruban VIOLET … ; 

© 5211105 Ruban MARRON 

© 5211106 Ruban VERT 

Q 5211107 Ruban ORANGE 

Q 5211108 Cassette ruban pour 9512 NOIR 

Q 5215007 Disquettes 3 pouces CF2 AMSOFT 


Q *521KE06 





















SOURIS KEMPSTON compatible P.A 









450.00 (j:52AMX7 SOURIS AMX compatible P.A.O. 
522.00 (Jj*52/R003  DIGITALISEUR VIDEO VIDI - ROMBO 
230.00 (j*52SCA01 Scanner MASTERSCAN 
1138.00 [] 52TL004 Cordon RS-232 CPS vers Minitel ï 
830.20 (] 52TL005 Cordon Série DB-25 PCW-Série 150.00 
350.00 (] 52TLO06 Cordon Série Null Modem PCW-PCW 1000 à ecse: 
550.00 (] 52TLO7 Boitier Auto-Répondeur pour SYNEA 250.00 ATESSE rome al 
250.00 (] 52AL013 Ecran de protection - Trame nylon 350.00 
350.00 (] 52AAB15 Pastille antistatique 0000 nrnna ee A de en 
350.00 (]j 52A0C19 THINGI ocument 60.00 
550.00 (] 5211109 PLANKEUR porte-disquettes PONS ET AS IE 
450.00 [] 52AAB17 Boîtier disquettes 3" 190.00 Code Postal: 
950.00 (1 5211150 Convertisseur prise BUS SCHNEIDER de, PR ER 
600.00 [} 5211151 Cable rallonge pour clavier - 1,2m 75.00 Ville 
pr Q 52111010 à 52111017 Marguerites pour PCW 9512 DAS RE en 
350.00 
D APEIERRE 
196.00 Papier TT 80g 12"x240mm - 600 plis DS name nt animent 
00 () 5224710 Papier TT 808 12"x240mm - 600 plis 104.00 
00 (] 5224720 Papier Lettre Luxe 12"x240 - 600 pee 199.80 Port: 25,00 F pour règlement à la commande 
00 () 5270001 Listing Zoné 12”x240 mm 2600 plis 218.00 60.00 F en contre-remboursement 
00 (] 5224800 Etiquettes 36x89mm, par 1 - Bte 4000 172% À renvoyer à: 
+ Q 5224810 Etiquettes 36x89mm, par 2 - Bte 8000 345.94 CMLL, 3 rue des Vignes 
.00 77520 Luisetaines Donnemarie Dontilly 
00 ° tl:(1)60 67 37 95 
.00 Multiplan pour l'Entreprise 198.00 Catalogue complet des produits PCW contre 3 
+ Programmation du Z80 248.00 timbres à 2,20 F pour frais d'envoi - gratuit avec toute 
D Introduction au Basic 148.00 commande. 
.70 introduction au Pascal et Turbo P 248.00 
8! ocoscript 110. 
Amstrad CP/M hs 148.00 CETTE PUBLICITE ANNULE ET REMPLACE 
Fichiers en BASIC 






SÉSSSSENSRSSDRESARSESRESRÉSEES 


B8382382388838838883 








+ 0 : 
210.00 0 5211157 
325.00 0 5211158 
Q 5211171 
Q 5211159 
Q 5211172 
Q 5211173 
_ te 
11163 
190.00 (J 5211164 
350.00 (j 5211165 
350.00 () 5211166 
rs Qi 521167 
here 5211169 

590.00 





MEDITOR - Gestion cabinet médical 2490.00 
PEDIA-MASTER - Gest. cab. Pédiatre 2490.00 
MEDIFISC - Comptabilité médicale 790.00 
WALL STREET - Gestion boursière 790.00 
tion clavier PCW 9512 137.58 

Hün clavier PCW 8256/8512 137.58 

Jou:4e; ÿé: luxe pour PCW 9512 350.00 
Manette de jou SCWITCH SJ-1 150.00 
Rallonge imprimante pour PCW 9512 250.00 
Cordon pour imprimante parallèle 110.00 
Bloc Classement disquettes 3 Tiroirs 710.71 
Prise Anti-Flash, Anti-Foudre 234.83 
100 Fles Carbone Micro-capsules PAO 138.76 
Kit nettoyage PCW4+Disquette nettoyage 236.73 
ah mt de nettoyage avec liqu 70.69 
Tirok clavier - Support ordinateur 616.72 
Troir pe Base Imprimante 80c 353.43 
MINI 3 - Boîte pour 9 disquettes 3” 24.00 
ONDULEUR 300VA Temps fonct. 10/30 mn Le 

1490. 





168.00 TOUTES LES PRECEDENTES. 





PRO-TECH aliment. accus (non fourni) 


FOURNITURES ARTS GRAPHIQUES ET INFORMATIQUE 
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Il 
I L'ECHO DU PCW 


I Une revue indépendante éditée par : 


| _ LOGI'STICK édition 


SOUMMIAIRE 


RC. BOBIGNY 325 608 362-APE 7704 - C.A.P.N. - Le Bonaparle - 
Boîte 49 - 93153 LE BLANC MESNIL CEDEX - FRANCE 





L'Echo du PCW est distribué par les N.M.P.P 


I TELEX: 213396 F - FAX: (1) 48.65.68.81 - TEL (1) 48.65.44.55 
(| (NouvellesMessageries de la Presse Parisienne) 


BANSS D'ESSAI LES EXCLUSIFS DE L'ECHO 
COMPITASS -Page 23 : Une gestion d'association 
complète et super efficace à un prix à peine 


DIRECTEUR DE LA PUBLICATION 


REDACTEUR EN CHEF pensable.… 
GILLES PROBST NOUMEROLOGIA- Page 24 : Le PCW numérologue 
vous dit tout de vous et de vos affinités. Un must très 
GESTION/C OMPTABILITE sue 
EE LACAILLE ROTAMAT- Page 25 : Longtemps réclamé à corps et à 
cris, voilà enfin l'utilitaire permettant la redéfinition des 
RESPONSABLE FABRICATION polices de ROTATE le magnifique. 
YAN RICHE GEST-COMPTE- Page 26 : Un véritable gestionnaire 
pour tous les budgets (dans tous les sens du terme). 
PHOTOGRAPHIE DE COUVERTURE Une superbe affaire! 
PHILIPPE GUERIN pen 


INITIATION BASIC (6)- Page 19 : Tout en douceur, l'auteur aborde 
maintenant la phase concrète de l'analyse en 
commençant à détailler la source de tout 
programme... 


PASCAL (5)- Page 36 : Le Voyage continue aux pays 
du langage le plus populaire après le basic. 


MISE EN PAGE/MAQUETTE 
YAN RICHE - MACINTOSH 2 - XPRESS 


PHOTOCOMPO 
MAC INTOSH 2 - XPRESS 


D 1 PROGRAMMES LA CHENILLE- Page 8 : Gourmande extensible, ZAZA 
à j vous rendra encore plus fou que son ancètre SNAKY. 
PHOTOGRAVURE COUVERTURE I CLOCK MAGIC- Page 33 : Du grand ar sur nos écrans. 
LE CAMELEON - PARIS I nn. nie un véritable bijou d'esthétique 
IMPRESSION : DELREM- Page 47 : Le compacteur pour DBASE est 
HERISSEY - EVREUX I arrivé, venu d'une autre planète il est livré en deux 
versions. 
. HISTO DBASE- Page 50 : DBASE sait faire des histo- 
da l grammes, il suffit de le lui demander gentiment. 
EPH REDACTION ln 
TEL SRE PES 55 CTION | DIVERS LES CONFIDENCES DE DR LOCO- Page 39 : 
Fee I LOCOSCRIPT 2 existe puisque DR LOCO en parle et 
COLLABORATEURS AYANT PARTICIPE A LA I révèle les arcanes d'un fameux casse-têtes : 
REDACTION DE CE NUMERO i a RP Lt 
DOMINIQUE BRESCHI - MARIE CLAIRE I LES ENTRAILLES DE DBASE @- Page 13 : Encore plus 
= fl loin dans le ventre du génial monstre sacré DBASE II 
L'ALANNE=: PETER GADBURY =JERÔOME:. Le smemnnnenemennmnennneeinieientannnmnntitinn entiere ere 
BOULENGER - PIERRE PAND - CHRISTIAN | RUBRIQUES SOMMAIRE Page 3 - EDITO Page 4 - NEWS Page 6 - 
NESEN - MARC HERMION - GERMAIN I HABITUELLES BON DE COMMANDE EXCLUSIFS Page 22 - CAHIER 
DELALANDE - DRLOCO-TONY LUZY- Î CENTRAL Page 27 - INTERACTIF Page 44 - COURRIER 
ARC EN CIEL CLUB - FRANCOIS PAGE | DRE" e MMENTSASEUR 
PR age 6 - 
hé PETITES ANNONCES Page 56 
Lonvoi de tout article sous-entend l'acceptation, par leur(s) I 


Jauteur(s), des conditions d'édition contenues dans le protocole | 
per que chaque auteur peut obtenir sur simple demande I 
écrite. 

froutes réclamations, questions techniques ou relatives aux I 


atticles de l'ECHO, demandes d'adresses ou de 
Idocumentations doivent être formulées par écrit à LOGI'STICK | Les exclusifs : Décrits chaque mois dans des fiches techniques Is sont un bon de commande qui leur est propre. 


pEction en Teens sur ist le service concerné. nl Disquette _ : ar pr Pc gi de ce présent numéro sont regroupés sur une seule ei même disquette dont le 
Les manuscrits non réclamés par les auteurs ne sont pas numéro correspond à c: Journal. 
Jretournés. Anciens numéros : Les anciens numéros de l'Echo du PCW sont encore disponibles à l'exception du numéro 2 dont 

L'ECHO DU PCW décline toute responsabilité quant aux opinions, nous ne livrons que des photocopies. 
Hformulées dans les articles, celles-ci n'engageant que leurs L Reliure Echo : La rebure Echo est personnalisée au sigle du journal et permet de classer une année entière, soit 11 numéros. Pour 
qeuieur. La bi du 11 MARS 1957 n'autorisant, aux termes des I vous procurer un où plusieurs de ces articles, utilisez ou recopiez le bon de commande situé en page centrale. 

alinéos 2 et 3 de l'article 41, d'une part que ‘les copies ou Publicité : Le tort de publicité est disponible sur simple demande par courrier. 
Areproductions stictement réservées à l'usage privé du copiste I Papler à en-tête : Un échankilonnage de papier personnalisé peut être obtenu par courrier accompagné de 10 F en timbres. 
et non destinées à une utilisation collective” et, d'autre part, Correspondance : Pour tout ane a timbrée la ré, 
Loue “les analyses et les courtes citations dans un but d'exemple I ? Pour toute correspondance, joindre une enveloppe pour/a reponse, 
ls d'illustration" " toute représentation ou reproduction, I 
intégrale ou partielle, faite sans le consentement de l'auteur ou 
Ice ses ayants droit ou ayants cause, est illicite” (alinéa 1 de 
j'aie 40). Cette représentation ou reproduction, par quelque fl 
procédé que ce soit, constituerait donc une contrefaçon 
Jsanctionnée par les articles 425 et suivant du code pénal. I 








I ISSN 0728-7648 I En couverture : La micro-informatique ou l'alpinisme du cerveau sous des 
l L'ECHO DU PCW © LOGJ/'STICK 1988 | cieux prometteurs … 





DISPONIBLE SUR PC ET COMPATIBLES 


es 


| 











Tout 
sur votre personnalité. 


ASTRO 1 


e Carte thème de 
naissance 

e Carte du ciel de 
naissance avec maisons, 
signes, planètes et 
aspects majeurs 

e Interprétation du thème 
de naissance 

e Personnalité profonde et 
ambition 

e Fichier de plusieurs 


centaines de personnes. 
tv 





POUR PCW 8256/8512 





Sachez ce que l'avenir 
vous réserve. 


ASTRO 2 
Comme ASTRO 1 avec en 
plus : 


e Calcul et édition des 
révolutions solaires 
année par année 


e Carte du ciel de chaque 
Révolution solaire 


e Interprétation du 
potentiel de l'année : 
Amour, argent, travail, 
santé, etc. 

N 









La version complète 

des initiés. 

ASTRO 3 

Version incluant ASTRO 2 

+ ASTRO COUPLE avec en 

plus : 

e Révolutions lunaires 

e Directions Primaires 
{avec pôles des planètes) 

e Directions Progressées 
et Symboliques 


e Calcul du Maître de 
Nativité selon la méthode 
de Volguine. 

ee) 


X 





\ 


Découvrez 

votre entourage. 
ASTRO COUPLE 
e Carte du ciel composite 
e Aspects planétaires 

e Comparaison des thèmes 


e Interprétation des 
relations du couple 
(plusieurs pages) 


y COUPLE 


CHEZ VOTRE REVENDEUR AGREE DDI (1) 48.67.28.44 + 






















ENFIN DU 


Grande pr 





NOUVEAU ! 


J'arrête (provisoirement bien sûr) mes délires grastro-encéphaliens pour vous relater les der- 
nières nouveautés et vous convier, Lectrice, Lecteur, à découvrir dans ces lignes des change- 
ments à peine pensables hier encore... 


ee. 
emière !!! 
CE 

A compter de ce numéro, L'ECHO est entièrement composé en nos locaux grâce à un petit 
bijou répondant au doux nom de MACINTOSH 2. Fabriqué par APPLE, il n'est pas compatible, il 
est cher mais on l'aime déjà! 
Armé d'un logiciel de P.A.O de grande classe dénommé XPRESS, nous mettons en page direc- 
tement à l'écran sans recourir à la photocomposition traditionnelle. L'économie étant substan- 
cielle, nous pouvons envisager de la répercuter très précisément sur notre prestation ce que ne 
démentira point mon paragraphe suivant. 


Les exclusifs de L'ECHO... 


À propos de 


A propos 


Tiraillés entre les demandes d'applications spécifiques et les offres de programmes de grande 
qualité, nous mettons en place, dès ce numéro, une nouvelle rubrique qui répondra à la 
demande d'une majorité : LES EXCLUSIFS DE l'ECHO 

Le principe est simple : D'un côté, des logiciels de qualité professionelle qui mériteraient d'être 
commercialisés et d'un autre côté, les coûts prohibitifs que cela impose (packaging, promo- 
tion, etc...). Donc, il nous a paru plus judicieux de supprimer, purement et simplement, tout frais 
inutiles afin de les proposer à un prix unique et remarquablement bas soit : 150 F TIC! 
Contrairement à toute attente, ces logiciels sont d'excellente qualité et n'ont rien à envier à 
leur cousins du commerce. Ils ont répondu à des critères de sélection impitoyables et seront 
décrits tous les mois, à compter du présent numéro, dans une rubrique intitulée “LES FICHES 
TECHNIQUES DES EXCLUSIFS". 


MOP-MBP 


ll semble que nos critiques aient porté leurs fruits puisque POWER PRODUCT nous annonce la sor- 
tie prochaine d'une version 2 du produit dans laquelle les erreurs auraient été corrigées. Dans 
l'attente d'une version finale et complète, nous suspendons nos essais. 


de LOCOSCRIPT 2 


La bête est enfin là et fonctionne convenablement. Pour preuve, les premières investigations 
du DR LOCO, dans ce même numéro, vous convieront à découvrir les charmes de la configu- 
ration de papier. Tout un programme que je vous recommande chaudement. 


Concluons 


Comme toujours, nous restons très attentifs à Vos demandes et continuons à nous battre pour 
que les problèmes que vous rencontrez soient résolus à la satisfaction de tous. 


mm = == JD Morcide votre attention et bonne lecture... 


GILLES PROBST 


EDITO + L'ECHO DU PCW N°20 De nn 


NEWS …. NEWS .… NEWS ... NEWS . NEWS . NEWS ... NEWS .. NEWS . NEWS .. NEW 


9512 C'EST LA FETE ! 





Le PCW 9512 semblait assez mal parti en 
cessoires astucieux à son service. Ce faux départ est 
maintenant oublié puisque D.D.I met le paquet et propo- 
se déjà aux heureux propriétaires de la machine de 
nombreux accessoires très utiles, voire même indispen- 
sables. 

Soit : Un jeu de housses complet pour recouvrir écran, 
imprimante et clavier. Infroissables et lavables, ces 
housses sont taillées aux mesures du matériel et l'ha- 
bille parfaitement. 

Mais aussi, une rallonge pour l'imprimante qui rajoute 
près d'un mètre vingt de câble afin d'éloigner le bruyant 
instrument. 

Enfin, pour faire front au désespoir des secrétaires face 
à l'usure rapide des rubans nylons, D.D.I vient de dégot- 
ter des rubans sans fin qui, suivant le principe déjà 
appliqué aux rubans des PCW 8256 et 9512, n'en finis- 
sent plus de tourner sur eux-mêmes et par conséquent 
durent, durent, durent. 


JEU DE HOUSSE 9512 : 350 F TTC 
RALLONGE IMPRIMANTE 9512: 250 F TTC 
RUBANS SANS FIN 9512 : 65 F TTC 


D . D.1. C.A.P.N. LE BONAPARTE Boîte 37 
93153 LE BLANC-MESNIL CEDEX 


œ] TEL (1) 48.67.28.44 + 


DRIVE SALE, LA FIN D'UN 
CALVAIRE... 


Attendues depuis plus de trois ans, les disquettes net- 
toyantes pour DRIVE 3 pouces viennent enfin d'être 
fabriquées et sont disponibles chez tous les revendeurs 
spécialisés. Cette disquette est la meilleure garantie 
contre les erreurs de sauvegarde dues à l'encrassement 
des têtes de lecture après plusieurs mois d'utilisation. 
D'un point de vue technique, le principe est simple : 

le disque magnétique initial a été remplacé par un équi- 
valent en feutrine synthétique sur lequel on dépose 
quelques gouttes d'un produit de nettoyage livré dans un 
flacon séparé. La disquette fonctionne pour tous les 
modèles de PCW, mais aussi pour les CPC. 


DISQUETTE AUTO-NETTOYANTE 3": 70 F TIC 


D.D.1. C.A.PN. LE BONAPARTE Boîte 37 
93153 LE BLANC-MESNIL CEDEX 
lo 1 TEL (1) 48.67.28.44 + 












W QUI DECOIFFE... 


YSTEM'C propose aux coiffeurs de choc une solution 
informatique totalement dédiée à leur profession. 
Répondant au nom suave et très évocateur de CAISSY, 
BANKY, STOCKY, STATY et MAILY, les cinq logiciels 
du package auront la délicate mission de prendre en 
main la totalité de la gestion du salon (celui de Jean- 
Raymond aussil). 

Signalons que le distributeur du package propose une 
garantie sur site de l'ensemble ainsi qu'une mise à jour 
automatique des nouvelles versions des programmes 
cités ci-dessus. 


LE PACK COMPLET AVEC 1 PCW 8256 : 19500 HT 


SYSTEM'C 26/28 RUE DE PARADIS 75010 PARIS 
TEL: (1) 48.24.11.68 





SALON ENFANTS DE LA 
PATRIE ! 


Officiel, le quatrième salon AMSTRAD aura bien lieu. 
Prévu du 4 au 7 Novembre 88, il se tiendra à la porte 
de Versailles dans le cadre prestigieux du Parc des 
Exposition. La grande nouveauté de l'EXPO sera la 
division bien nette et sans appel des zones expositions 
professionnelles et loisir 


AMSTRAD EXPO N°4 Organisé par SOSIS 
TEL (1) 42.52.84.76 
Les 4, 5, 6 et 7 Novembre 1988 à La porte de Versailles. 


e) 


Erpress NEWS + L'ECHO DU PCW N° 20 


S … NEWS .… NEWS . NEWS .… NEWS …. NEWS .…. NEWS .… NEWS .. NEWS . NEWS … 








UN PETIT NOUVEAU 


Il est jeune, il est beau et il sent bon le sable chaud. 
Sylvain DONNET, programmeur de talent, nous propo- 
se son premier bébé, fruit de plus d'un an de travail: 


docker 2.1 Lriun à chiors: ch pour: D 






DR EU SR Dee ne nn en En en ne ee en en ee ee nee 
DS UE RE pp 
DIE CIE DE DE DE DE DE DE DES DES D CD DE DE DE 


roro re aus ervrere D, D —2 05 





la boîte à outils du PCW. Commercialisé sous la 
marque DONNET édition, il inclut trois logiciels compi- 
lés: (100% Turbo Pascal) d'une utilité certaine, voire 
même d'une certaine utilité ce qui semble évident pour 
un utilitaire! 

Le premier, JOCKER se charge de copier, renommer, 
effacer, afficher en clair ou en hexadécimal, les dumps 
d'autres fichiers. Gros avantage, il permet de travailler 
sur plusieurs fichiers en simultané. 

Le second, CROSSER donne les références croisées 
contenues dans les fichiers ASCII issus de PASCAL, 
BASIC, LOCOSCRIPT, DBASE et autres. L'avantage 
est évident puisqu'il permet de connaître avec exactitu- 
de l'utilisation de tous mots en donnant les numéros de 
lignes où ils sont employés. Exemple : Les variables uti- 
lisées dans un programme, un index sous LOCOS- 
CRIPT, la recherche d'une instruction, etc... 

Enfin troisième et bon dernier programme, TRACKER 
s'occupe de dumper toute une portion d'une disquette 
en listant, octet par octet, son contenu avec, comble du 
luxe, une possibilité de désassemblage. 
Tournant aussi bien sur 8256/8512 que sur 9512, cette 


boîte à outil mériterait un banc d'essai dans un ECHO 
futur, ce dont je m'en vais immédiatement parler à ma 
maman! Quoiqu'il en soit, le pack est disponible chez l'édi- 
teur lui-même à l'adresse située ci-après... 


LA BOITE À OUTILS DU PCW : 300 F TTC 
DONNET Editions 11 RUE BIDA 
31000 TOULOUSE Tel: (16) 61.25.31.73 


A PROPOS DE P.A.O 


Pour récupérer la quasi-intégralité des signes spéciaux 
issus des fichiers ASCII de LOCOSCRIPT sous XPRESS, 
nous avons réalisé un programme de transcodage que 
nous nous ferons une joie d'envoyer gracieusement à toute 
personne intéressée. 

Pour cela, il suffit d'en faire la demande par courrier en joi- 
gnant 2 timbres à 2,20 en guise de participation aux frais 
d'expédition. Merci l'ECHOI 


Convertisseur LOCOSCRIPT - XPRESS : 2 x 2,20 F en 
timbres frais 

LOGI'STICK 
CAPN LE BONAPARTE BOITE 49 
93153 LE BLANC MESNIL CEDEX 


GOD MICRO SAVE THE PCW 


PETREL Informatique propose un boîtier de protection 
d'alimentation à l'usage des PCW. Se raccordant sur le 
lecteur de disquette, entraînant par la même le démontage 
du capot arrière, le MICRO SAVE offre une sécurité notoire 
comme le précisent les protections suivantes : 

- Pertes de mémoires dues aux micro-coupures et cou- 
pures jusqu'à 30 mn 

- Destruction des fichiers sur disquettes en cours d'écriture 
- Défaut d'alimentation accidentel ou volontaire 

- Creux de tension (220 V - 20%) 

- Transport du PCW débranché 

- Débranchement accidentel 

Assez compact (105 X 60 X 130), le MICRO SAVE dispose 
des voyants traditionnels indiquant l'état de charge, pour le 
vert, et l'état de secours pour le rouge. 

Notons que si le prix de cette sécurité n'est pas très élevé, 
le mode de connexion au PCW n'est pas particulièrement 
pratique car il demande l'ouverture du PCW et le raccord 
d'un élément étranger sur le lecteur pouvant entraîner une 


perte de la garantie. 
Mais y a t'il encore des PCW sous garantie? Le; 
MICRO SAVE: 1400 F TTC 
PETREL INFORMATIQUE 6 RUE ISAMBARD 
27120 PACY /EURE TEL: 32.26.16.65 





L BOUTON POUSSOIR 

RACCORDEMENT SECTEUR 

KB RACCORDEMENT APPAREIL SECOURU 
secours É VOYANT VERT CEN CHARGE) 


VOYANT ROUGE (SECOURS) 
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E 
Apre$ le succès international 
de SNAKY le magnifique, voici 
en exclusivité ZAZA Ia chenille 
gloutonne dont les facéties 
enchanteront pendant de 
longs moments les plus petits 
et les moins grands 1! 





L'opération de saisie se passe en trois temps : 


Tout d'abord, saisir le premier programme CHE- 
NILLE.BAS suivant les instructions de la page 56 
de ce présent ECHO. 

Ensuite, après être certain d'avoir sauvé le pre- 
mier, on se jette à corps perdu dans la saisie du 
second, appelé CHEN.BAS. Une fois encore, les 
instructions de la page 56 ne seront pas inutiles. 
Après avoir sauvé ce dernier sous le nom de 
CHEN par SAVE "CHEN" <RETURN> on peut 
sereinement envisager, enfin, la saisie de 
quelques codes de redéfinitions de caractères à 
l'aide du grandissime MATRIX2 publié dans 
l'ECHO 9. Ces codes devront être sauvés dans un 
fichier nommé CHEN.CAR à l'aide de MATRIX2, 
en voici la liste : 


DESSIN MATRICE CODES DE LA MATRICE 
POULE: 201 0,0,0,96,144,136,72,64 

202 0,0,0,0,0,0,0,8,60 

203 67,252,120,56,7,2,3,0 

204 242,2,6,44,240,32,48,0 
POMME: 205 96,48,56,126,243,243,126,24,0 
CHENILLE: 206 0,24,126,243,243,126,24,0 
CHENILLE DECOMPOSEE: 207 0,42,84,170,85,42,20,0 
CADRE: 208 195,66,66,66,66,66,126,0 

209 0,126,66,66,66,66,66,195 

210 128,255,1,1,1,1,255,128 

211 1,255,128,128,128,128,255,1 

212 243,146,146,254,16,16,240,128 

213 128,240,16,16,254,146,146,243 

214 207,73,73,127,8,8,15,1 

215 1,15,8,8,127,73,73,207 


Voilà, tout est prêt pour la gloutonnade infernale : 


Lancement par RUN "CHENILLE" qui recupère le 
fichier CHEN.CAR en ligne 70 et appelle le pro- 
gramme principal CHEN.BAS par RUN "CHEN" 
en ligne 120. La suite, la voici: 









ROGRAMMATION BASIC 






Une chenille... 0666600 
cherche à nanger des ponnes.., 





CE 
sans se faire manger par les poules... b 
& 






° 
° 
° 
n 
° 
mn 
° 
n 

Rise À vous de l'aider... 

Vous pouvez guider la chenille à l'aide de 2 touches : 


Si veus appuyez sur ‘$° elle tournera sur SA droite 
Si vous appuyez sur ‘H' elle tournera sur SA gauche. 


Attention ! 1 la chenille paie une poule, 
elle bouche Le aur du jardin, 
si elle se ré là queue, 

Vous avez serial 


res fois que L chenille sange une pose, elle s'al- 
longe. Quand toutes les ponnes sont nangées vous passez 
au Fi veas supérieur. 


Bonne chance pour le record ! ÿ 


fppuyez sur une touche pour commencer 





FRS 


La chenille est immobile au départ et commence 
sa promenade à la pression de n'importe quelle 
touche. La chenille s'allonge chaque fois qu'elle 
mange une pomme et meurt dès qu'elle rencontre 
une poule, le bord du cadre ou elle-même. 


Les déplacements sont réduits à leur plus simple 
expression: 

Touche <W> pour faire tourner la chenille à gauche et, 
Touche <$> pour faire tourner la chenille à droite. 


Quand toutes les pommes sont englouties, le jeu 
passe au tableau suivant qui contient un peu plus 
de pommes, mais aussi de poules... 


Le score augmente de 100 par tableau et de 1 par 
pomme. Tout record est immortalisé dans un 
fichier spécial automatiquement conçu à cet effet 
sur la disquette placée en A lors de l'utilisation du 
jeu. Ce fichier s'appelle RECORD.CH1 et peut être 
détruit afin de remettre le record à zéro. 





Y'en a qu'une c'est ZAZAI! 


Les programmes et fichiers de cet article se 
trouvent sur la disquette ECHO N°20. 


A PROGRAMMATION BASIC + L'ECHO DU PCW N° 20 


PROGRAMMATION BASIC 


10 RARE PR EEE EEE EEE SET 

20 ‘à CHENILLE (= CHARFIC,BAS) À 

30 'RXAIIEÉEIEREREEEREEERRSEETEEEEREREESRETEREES 

49 esc$=CHRS(27):DEF FNcu$(x,y)=esc$+"Y"+CHRS(32#x)+CHR#(32+y) 1 c 
1s$sesc$+"E"+esc$+"H": PRINT cls$esc$+"f"+esc$+"0"" (Y4) 

S@ MEMORY ZHBFFE:FOR n=4HC070 TO LHCOSB:READ dB:POKE n,d8;NEXT:D 
ATA 243,62,129,211,241,62,130,211,242,175,95,103,22,184,58,153,1 
92,111,41,41,41,25,17,154:' (CX) 

60 DATA 192,235,1,8,0,237,176,62,133,211,241,62,134,211,242,251, 
201: CKK) 

70 non$="a:chen, car" :OPEN "R“,1,non$,l:FIELD #1,1 AS z$:c=kHC070 
11=0:x=39:y=16:PRINT FNcu$(14,30)"Chargement fichier en cours"' 
(PH) 

80 FOR n=32 T0 255' (OU) 

90 IF n MOD 10 =@ THEN PRINT FNeu$(y,x)'esc$"p Patientez" ELSE P 
RINT FNeu$(y,x)'esc$"q Patientez"! (FB) 

100 POKE &HC499,n:FOR n2=1 TO 8,GET #1:POKE 8HC099+n2,ASC(z$):NE 
AT: CALL c'NEXT:CLOSE' (TL) 

116 PRINT FNeu$(18,30)"Chargement terminé"! (YM) 

126 RUN “chen“' (KQ) 


10 'ARREREESIRESIALTEETEREERS 

20 ‘# LA CHENILLE GOURMANDE * 

30 AXXTAEISEREREEEREEITEEES 

40 

50 ‘324 INITIALISATION DES VARIABLES #34 

60 IF FIND$("record,chl")="" THEN 109! (IX) 

70 OPEN “l",#1,"record,chl"' (4V) 

80 INPUT #1 record ,rec$' (29) 

90 CLOSE #1' CFN) 

100 esc$=CHR$(27):cls$=esc$+"E"+esc$+"H"! (PS) 

110 DEF FNlocate$(x,y)=esc$+"Y"+CHRS(32+x)+CHR$(32+y)' (BY) 

120 DEF FNvi$(l,c,h,w)=escé+"{"+CHRS(32+1 )+CHR$(32+c )+CHR$(31+h) 

+CHRSC31+w)" (60) 

136 pon$=CHR$(205) :chen$=CHR$(206) :poul$=CHR$(201 )+CHRS(202)+CHR 

SCBI+CHRSCB)+CHRSC 10 )+CHR$(203)+CHRS(204) PRINT esc$:"f"' (6E) 
140 cadre$(1)=CHR$(212)+STRINGS(57,208)+CHR$(214):cadre$(2)=CHR$ 
C216)+STRING$(57,32)+CHR$ (211) :cadre$(3)=CHR$(213)+STRINGSC57,20 

S)+CHR$(215)' (13) 

150 PRINT cls$' (MH) 

160 ‘ 

170 'Xki Titre X24 

180 PRINT FNvi$(2,15,29,60)' (4S) 

190 PRINT cadre$(1)' (TO) 

200 FOR i=1 TO 25:PRINT cadre$(2):NEXT' (06) 

218 PRINT cadre$(3)' (TJ) 

220 PRINT FNlocate$(4,16)"Christian NESEN présente"! (6H) 

230 FOR i=18 T0 38 STEP 2:PRINT FNlocates(8, i)CHRS(205)CHR$(32) ; 

NEXT' (05) 

240 PRINT FNlocate$(12,21)"LA CHENILLE "'FNlocate$(12,35) pouls" 
(V1) 

250 PRINT FNlocate$(14,21):poul$'FNlocate$(15,28)"GOURMANDE"' (T 

Y) 

260 PRINT FNlocate$(20,19)"Pour PCW 8256 & 8512"! (ZX) 

270 FOR i=24 TO 32 STEP 2:PRINT FNlocate$(24,i);chen$:NEXT' (M3) 

280 FOR i=l TO 1000:NEXT' (05) 

290 FOR i=34 TO 42 STEP 2:60SUB S40:PRINT FNlocate$(24,i):chen$: 

NEXT' (20) 

300 FOR i=24 TO 32 STEP 2:60SUB S40:PRINT FNlocate$(24, i) ;CHRS(3 

DNEXT' (SP) 

310 FOR i=44 TO 52 STEP 2,60SUB S40:PRINT FNlocate$(24,i):chen$: 

NEXT' (2L) 

320 FOR i=34 TO 42 STEP 2:60SUB S48:PRINT FNlocate$(24, i):CHR$(3 

2):NEXT' (ST) 

330 FOR i=24 TO 20 STEP -1:GOSUB 540 :PRINT FNlocates(i,52):chen$ 
INEXT' (3P) 

340 FOR i=44 TO 52 STEP 2:60SUB 540:PRINT FNlocate$(24, i );CHR$(3 

2):NEXT' (SX) 





350 FOR i=19 TO 16 STEP -1,60SUB 548:PRINT FNlocate$(i,52);chen$ 
NEXT' (48) 

360 FOR i=24 TO 26 STEP -1:60SUB S40:PRINT FNlocates(i,52);CHR$( 
32):NEXT' (71) 

370 FOR i=15 TO 12 STEP -1:G60SUB 540 ,PRINT FNlocate#(i,52);chen$ 
INEXT' (3U) 

380 FOR i=19 TO 16 STEP -1:60SUB S49:PRINT Flocates(i,52),CHRS( 
32):NEXT' (7C) 

390 FOR i=11 T0 8 STEP -1:60SUB S48:PRINT FNlocate#(i,52):chen$: 
NEXT' (2L) 

400 FOR i=15 TO 12 STEP -1:60SUB S40:PRINT FNlocates#(i,52);CHR$( 
32):NEXT' (64) 

416 FOR i=50 TO 42 STEP -2:60SUB 549 ,PRINT FNlocate#(8,i);chen$; 
NEXT' (2H) 

426 FOR i=11 TO 8 STEP -1:G0SUB S48:PRINT FNlocate$(i,52) ;CHR$(3 
2):NEXT' (50) 

430 FOR i=40 TO 32 STEP -2:60SUB 540 PRINT FNlocate#(8,i);chen$: 
CHR$C7):NEXT' (F1) 

440 FOR i=30 TO 22 STEP -2:60SUB S40:PRINT FNlocate$(8,i):chen$: 
CHR$CZ):NEXT' (F0) 

450 FOR i=20 TO 18 STEP -2:60SUB S40:PRINT FNlocate$(B,i);chens; 
CHR$C7):NEXT' (F5) 

460 FOR i=16 TO 12 STEP -2:G0SUB 540 ,PRINT FNlocate$(8,i);chen$: 
NEXT' (2L) 

470 FOR i=50 TO 42 STEP -2,G0SUB 540,PRINT FNlocate$(8, i):CHRS(3 
2):NEXT' (54) 

480 FOR i=10 TO à STEP -2:60SUB S40:PRINT FNlocate$(8,i):chen$:N 
EXT! (12) 

498 PRINT STRING$(25,7)' (1C) 

500 GOSUB 540:60SUB S40:FOR i=40 T0 @ STEP -2:60SUB 548:PRINT FN 
locate$(8,i):CHR$(207):NEXT' (2P) 

516 GOSUB 540:60SUB S40:FOR i=40 T0 2 STEP -2:60SUE 549:PRINT FN 
locates(8,i):CHR$(32):NEXT: PRINT FNlocate#(8,0):CHR$(210)' (65) 
526 PRINT FNwi$(9,0,32,90):FNlocate$(32,60)"Appuyez sur une touc 
he":' (49) 

530 r=r+l!a$=INKEYS:IF a$=""G0TO 530 ELSE RANDOMIZE r:60T0 550" 
(RQ) 

540 FOR j=1 TO 100:NEXT:RETURN' (DR) 

550 ‘ 

560 ‘'xk33 DEBUT OU JEU *x#4 

570 ‘ 

580 n=1@;niv=0" (MS) 

598 niveniv+l'p=0:d=31a$=""" (7A) 

600 IF niv>l THEN LET n=INT(n+n/2)' (HG) 

610 DIM ca(26,58):ca(15,15)=4' (4V) 

620 ' 

630 'XX4 Affichage cadre, niveau, record, score $$$ 

640 ‘ 

650 PRINT FNui$(@,0,32,90);c1s$:PRINT TABCI7): "NIVEAU : "iniv:TA 
BCS4); "SCORE MAXIMUM : “:108Xnivtn' (E7) 

660 PRINT FNwi$(14,3,18,12);FNlocate$(,8)" Record''FNlocates(|, 
DSTRINGS(9,138):PRINT “  "irecord'PRINT FNlocate$(3,1):STRIN 
6$(9,138):FNlocate$(4,1);rec$' (22) 

670 PRINT FNwi$(2,15,29,60)' (44) 

680 PRINT cadre$(1)' (TS) 

690 FOR i=1 TO 25:PRINT cadre$(2),NEXT' (OT) 

700 PRINT cadre$(3)' (TN) 

716 PRINT FNwi$(0,0,32,90) ;FNlocate$(31,34):"LA CHENILLE GOURMAN 
DE":FNvi$(2,15,29,68)' (SM) 

720 GOSUB 154@' (KJ) 

730 ‘ 

740 'HXIYX position des ponnes 31214 

750 FOR i=l TO n' (MJ) 

160 a=INTCRNOY100):IF a€2 OR a26 OR a/2=INT(a/2) THEN 760' (E8) 
7176 b=INTCRNOY100):1F b<@ OR b>57 OR b/2=INT(b/2) THEN 770' (EH) 
180 IF cala,b)(0 THEN 760 ELSE PRINT FNiocate$(a,b):pon$LET ca 
(a,b)=l" (3E) 

190 NEXT' (08) 

800 : 

810 ‘#XHRX position des poules #334 


PROGRAMMATION BASIC + L'ECHO DU PCW N° 20 FERRRUSESSNE 





820 FOR i=l TO n/2' (P6) 

830 a=INTCRND#100):IF a€2 OR a)26 OR a/2=INT(a/2) THEN 830' (E4) 
840 b=INTCRNOX100):IF b<1 OR b>56 OR b/2=INT(b/2) THEN 840! (ED) 
850 IF cala,b)()@ THEN 838-ELSE PRINT FNlocate$(a,b)'pouls:LET € 
ala,b)=2:ca(atl ,b)=2:calatl ,b+l)=2:ca(a,b+1)=2 (QA) 
860 NEXT' (09) 

870 ‘ 

880 'XKYYX JEU X3233 

890 ‘ 

900 PRINT FNlocate$(15,15):chen$:FOR i=1 TO S@0:NEXT' (CL) 
910 a$=INKEYS:IF a$="" THEN PRINT FNlocate$(15,15),CHR$(32):FDR 
il TO S00:NEXT:GOTO 900! (U2) 

920 tt=1' (C1) 

930 xS=CHRS(1S):yS=CHRSC1S)' (4P) 

940 x=ASC(x$):y=ASC(y#)" CIN) 

950 IF tt@1 THEN a$=INKEYS' (60) 

960 tt=0' (C4) 

970 d=d+(a$="#")-(a$="$")" (2) 

980 IF d>3 THEN LET d=0' (16) 

990 IF d<@ THEN LET d=3' (15) 

1000 y=y+23((d=2)-(d=0))' (IN) 

1010 x=x+((d=3)-(d=1))' (V4) 

1026 PRINT FNlocate$(x,y):chen$' (6R) 

1030 ‘ 

1040 'X43 La chenille sort du cadre 33* 

1050 IF y< OR y257 OR x<2 OR x>26 THEN 1370 ‘ (06) 
1868 ‘ 

1070 "#43 La chenille touche une poule #33 

1080 IF cax,y)=2 THEN 1378! (2R) 

1090 ‘ 

1166 ‘#3 La chenille se nord la queue #43 

1116 IF calx,y)=3 THEN 1370' (2H) 

1126 ‘ 

11306 ‘XX? La chenille mange une ponne 3x3 

1140 ‘ 

1IS6 IF cax,y)=1 THEN 1166 ELSE 1268 (6F) 

1160 a$=LEFTS(x$,2)' (RO) 

1170 a$=LEFT$(x$,2)' (RP) 

1180 x$=a$tx$" (17) 

1190 a$=LEFT#(y$,2)' CRS) 

1200 y$=a$+y$" (12) 

1218 p=ptl'score=1604niv+p:60SUB 154@' (P3) 

1220 IF p=n THEN ERASE ca:60T0 590' (6J) 

1236 ‘ 

1240 ‘#34 La chenille ne mange pas de ponne Ÿtt 

1250 ‘ 

1260 calx,y}=3' (KR) 

1270 x$=CHRS(x)+x$' (RB) 

1280 y$=CHR$(y)+y$" CRC) 

1290 x=ASCCRIGHTS(x$,1))' (1X) 

1300 y=ASC(RIGHTS(y$,1))' (IR) 

1310 x«$=LEFTSCx$ LEN(x$)-1)' (SC) 

1320 yS$=LEFT$Cy$ ,LEN(y#)-1)' (56) 

1330 PRINT FNlocate#(x,y):CHR$(32):calx,y)=0' (QT) 
1340 GOTO 949' (IH) 

1350 ‘ 

1360 "#44 FIN DE PARTIE 333 

1370 FOR f=1 TO LEN(x#)' (XH) 

1380 x=ASC(RIGHTS(x$,F))' (21) 

1390 y=ASCCRIGHT#(y$,F))' (2L) 

1400 PRINT FNlocate$(x,y):CHR$(287)' (LI) 

1410 NEXT' (ED) 

1420 FOR i=1 TO 100:NEXT' (02) 

1430 FOR f=1 TO LEN(x$)' (XE) 

1440 x=ASCCRIGHTS(x$,F))' (2F) 

1450 y=ASCCRIGHT#Cy$,F))' (21) 

1468 PRINT FNlocate$(x,y):CHR$(7):CHR$(32)' (NS) 
1470 NEXT' (EJ) 

1480 IF score(=record THEN 1500 ELSE PRINT c1s$:PRINT FNlocates( 
18,25);"Bravo ! Vous avez battu le record !":PRINT FNlocates(14, 
26): : INPUT "Quel est votre non “:rec$' (L6) 


PROGRAMMATION BA 


1498 record = score;OPEN "0",#1 "record, chl":PRINT #1 ,record rec 

$:CLOSE #l' (DE) 

1500 PRINT FNwi$(14,75,10,12):STRINGS(S,7):FNlocate$(5,1):"Une à 

utre":FNlocates(6,1);"partie ?":FNlocate$(8,1)"O/N "INPUT " *, 
rep$' (WD) 

1818 rep#=UPPERS(rep$):1F rep$="N" THEN 1580 ELSE ERASE ca:score 
*0:60T0 580' (D7) 

1520 ‘ 

1536 ‘XI3XÉ Affichage du score XX2#3 

1540 PRINT FNwi$(14,75,10,12):CHR$(7):FNlocate$(0,5):"Score":FN] 

ocate$(1,1):STRING$(9,138):PRINT “  "iscore:PRINT FNlocates(3,1 
),STRING#(9,138)' (HL) 

1550 PRINT FNwi$(2,15,29,68);RETURN' (L4) 

1560 ‘ 

1570 ‘ SRARIREEES FIN RRRRRISEISENEEXS 

1580 PRINT FNwi$(0,0,32,90) :esc$"e":c1s$:END' (AN) 

1590 ‘ 

1600 ‘ #34 GRAPHISHE *33 

1610 ‘ 

1620 DEF FNwp{x)=UNT(PEEK(x)+2563PEEK(x+1))' CYJ) 

1630 DEFINT c' (JR) 

1640 cls=FNwpC8HF5F4):clocat=FNwpC&HF5F2) :caode=FNwp(&HFSFO):cfo 
rae=FNvpC(&HFSF6);csens=FNep(&HFSF 8) :cprint=FNep(&HFSF A) : symbol = 

FNwp(&HFSFC)' (14) 

1650 FOR j=1 TO 15' (DK) 

1660 FOR i=1 TO 8:READ tableX(i):NEXT:codasc4=200+j' (A4) 

1670 CALL csymbol(codasc% ,tableÿ(1))' (NL) 

1680 NEXT j' (60) 

1690 Db$=CHRS(201)+CHR$(202)+CHR$CB)+CHRS(B)+CHRS(10)+CHRS(203)+C 

HR$(204)' (XI) 

1700 DATA 0,0,0,96,144,136,72,64:' (91) 

1710 DATA 0,0,0,0,0,0,8,60:' (22) 

1728 DATA 67,252,120,58,7,2,3,0:' (70) 

1730 DATA 242,2,6,44,240,32,48,0:' (8Y) 

1740 DATA 96,48,56,126,251,231,126,60:' (GG) 

1750 DATA 0,24,126,243,243,126,24,0:' (D1) 

1760 DATA 0,42,84,170,85,42,20,0:' (91) 

1770 DATA 195,66,66,66,66,66,126,8:' (CR) 

1780 DATA 0,126,66,66,66,66,66,195:' (CS) 

1790 DATA 128,256,1,1,1,1,255,128:' (AJ) 

1800 DATA 1,255,128,128,128,128,255,1:' (67) 

1810 DATA 243,146,146,254,16,16,240,128:' (12) 

1820 DATA 128,240,16,16,254,146,146,243:' (38) 

1830 DATA 207,73,73,127,8,8,15,1:' (9E) 

1840 DATA 1,15,8,8,127,73,73,207:' (9F) 

1850 aff$="Christian NESEN présente" :CALL cis' (64) 

1860 RESTORE 1990:FOR i=0 TO 10' (B5) 

1870 READ a1%,a2%,a3%,a4% ,a5%,a6%' (90) 

1880 IF i =1 THEN aff$=CHRS$(201)+CHR#(202)' (NU) 

1890 IF i>2 THEN aff$=CHRS(203)+CHR#(204)' (01) 

1900 IF i=5 THEN aff$="La Chenille "+STRIN6#(7,206)' (60) 

1910 IF i=6 THEN aff$=STRINGS(8,206)+"  Gournande"' (45) 

1920 IF i=7 OR i=9 THEN aff$=CHR#(205)' (J2) 

1930 IF i=8 THEN aff$="pour PCW 8256 & 8512"! (PY) 

1949 IF i=10 THEN aff$="Appuyez sur une touche"! (4D) 

1950 CALL csens(al#):CALL cforme(a2%,a3%):CALL caode(a4ÿ):CALL c 
locat(a5%,a6%)' (68) 

1960 CALL cprint(aff$):NEXT' (92) 

1970 aÿ=0:b{=0:CALL clocat(aÿ,b#)' (E@) 

1980 a$=INKEYS:r=r+l:IF a$="" THEN 1980 ELSE RANDOMIZE r'RETURN' 
(vi) 


1999 DATA 6,2,2,6,20,1:' CUY) 
2000 DATA @,2,2,0,8,4:' (TE) 
201 DATA 0,2,2,0,78,4:' (UV) 
2020 DATA 0,2,2,0,8,6:' (TI) 
2030 DATA 0,2,2,0,78,6:' (V2) 
2048 DATA 0,4,4,0,4,18:' CUR) 
2050 DATA 0,4,4,0,4,16:' CUY) 
2060 DATA 0,8,4,0,10,24:' (VB) 
2070 DATA 0,2,2,8,26,22:' (W9) 
2089 DATA 0,8,4,0,74,24:' (UN) 
2090 DATA 0,1,1,0,65,31:° (WC) 
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Outil inégalé, DBASE II 
CW n'en demeure pas 


METTEZ Es 
UN TIGRE & Ésmresese 
DANS VOTRE K E 


DBAS 


ou comment créer de nouvelles fonctions en Langage Machine 


ans notre précédent 
uméro et vous convie à 








4. SAISIE AU VOL 
D'UNE TOUCHE DE CLAVIER 


Une fonction analogue au INKEY$ du 
Basic fait cruellement défaut dans dBase II. 
L'instruction WAIT ne remplit pas le même rôle, 
car comme son nom l'indique dans la langue de 
Shakespeare, elle attend un caractère au clavier. 
De plus, 6 trahison, le résultat ne reflète pas fidè- 
lement la touche frappée. Les caractères de 
contrôle (ex.: une flèche ou <RETURN>) sont sys- 
tématiquement remplacés par un espace (code 
ASCII = 32). Un caractère graphique de code 
ASCII supérieur à 128 se voit délesté de son bit 
de poids fort. Ainsi, <EXTRA>+C qui donne nor- 
malement le signe Copyright, un petit C dans un 
rond (code ASCII 164) se voit transformé en un 
banal dollar (code ASCII 164 - 128 = 36). Vous ne 
me croyez pas ? Essayez donc le petit programme 
suivant : 


set talk off 
do while t 
* taper <EXIT> pour sortir de la boucle infernale 
set console off 
wait to touche 
set console on 
? touche, rank (touche) 





[4 


Ë 


: 
<ALT>W ou <COPY> ë 
Q 





do demowait ! 
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Il serait pourtant intéressant de pouvoir 
saisir au vol une touche du clavier en vue de sus- 
pendre le déroulement d'un programme et de 
"rediriger" le programme selon la touche qui a été 
enfoncée. Associée à l'utilisation des caractères 
semi-graphiques (voir ECHO n° 17), une fonction 
du genre INKEY$ donne la possibilité de. 


MENUS DEROULANTS-. 


= Mais, la difficulté tient au fait que 
*— ‘, dBase Il lit continuellement le clavier, 
: et teste si par hasard le caractère lu 
ne serait pas <ALT>S qui suspend 
l'affichage à l'écran , ou <EXIT> qui 
interrompt sauvagement l'exécution à 
:} moins d'avoir été inhibée par 
f set escape off. Une routine externe 
de lecture clavier en langage machi- 
; ne ne rend la plupart du temps aucun 
résultat, car dBase Il sollicite trop 
fréquemment la fonction de scruta- 
ss tion de clavier interne à CP/M pour 

“ que celle-ci soit disponible au 
moment où il le faudrait. 


La solution consiste à détourner la 
* routine de lecture de clavier de CP/M 
. (un scoop ! L'Echo raconte un 

> détournement...) et à ajouter une ins- 
# truction qui stocke à une adresse 
"tranquille" le code de la dernière 
touche enfoncée. Pour cet usage, 
nous avons choisi l'adresse 3. Il 
s'agit de l'/0 BYTE, autrement dit de 
l'octet d'entrée-sortie. Cet octet était 
utilisé par les versions antérieures de 
CP/M pour les redirections de péri- 

4 phériques. Notre CP/M PLUS utili- 


sant ie adresses 64438 à 64455 pour cet usage 


(voir l'article "Les entrailles du PCW" du N°17), 
l'adresse 3 est désormais libre. Autre avantage 
appréciable, PEEK(3), c'est facile à retenir, n'est- 
ce-pas ? (non je vous en prie, vous me remercie- 
rez plus tard.) 

Le programme INKEY.CMD est présenté 
sur le tableau 1 et se crée par MODI(fy) 
COMM(and) INKEY. Nous lui avons incorporé le 
POKE qui configure dBase à la taille d'écran du 
PCW. Pour les spécialistes de l'assembleur, le lis- 
ting source INKEY.ASM figure sur le tableau 2. 


Tableau 1 


INKEY.CMD 

* INKEY.CM (saisie d'une touche au clavier) 

poke 42240,42,6,0,34,52,165,34,58,165,34,61,165,229,6,6,176,17 
poke 42256,21,0,25,17,69,165,26,190,32,6,35,19,16,248,225,201 
poke 42272,209,27,33,74,165,1,27,0,237,184,235,35,34,6,0,201 
poke 42288,121,254,6,194,0,0,123,254,255,194,0,0,205,0,0,183 
poke 42304,200,50,3,0,201,73,78,15,69,89,0 

set call to 42240 

call 

2? LELE Inkey chargé. LEE LI 


Tableau 2 


INnKEY.RSM (MNEMONIQUES Z-80 ZILOG) 
org OR500h 


; charge la routine ‘detour' en haut de memoire. 


inkey: 
ld bl.(6)  ; Prend le vecteur d'appel du bdos. 
ld (deti+1), ; Met cette adresse a sa place 
Id (det2+1),hl; dans la routine ‘detour'. 
ld (det3+1)hl 
push Dh! ; Sauve le vecteur d'appel au bdos. 
ld 6 ; Longueur de la chaine 
‘INKEY',0 
Id de minkey-detour ; Position de cette chaine 
add bl,de ; si inkey a deja ete charge. 
ld de minkey 
ink10: 
ld a (de) ; Compare a la chaine ‘INKEY',0 
cp (hi) 
Jr az,ink30 ; Si different, alors pas deja charge. 
inc bh] 
inc de 
djnz ink10 ; Si tous les car. sont identiques, 
pop bl 
ret : alors deja charge -> retour 
ink30: 
pop de : Recupere vecteur d'appel du bdos. 
dec de ; Dernier octet avant bdos. 
Id b].detfin-1; Fin de la routine ‘detour. 
ld bc,detfin-detour ; Longueur de la routine. 
lddr ; Transfere vers haut de memoire. 
ex deb] 
inc hl ; Debut de la routine ‘detour' apres 
ld (6)hi  :;transfert. C'est Je nouveau vecteur 
ret ; d'appel du bdos. 


; Routine de detournement bdos a placer en haut de memoire. 


detour: 
ld a,c ; Si numero de fonction bdos © 6, 
6 : (entree/sortie ecran/clavier), 
det1: 
jp nz,0 ; alors saute au bdos. 
Id a,e ; Si fonction demandee © lecture 
255 ; clavier, alors saute au bdos. 
det2: 
nz,0 
det3: 
call 0 : Scrutation clavier. 
or a ; Si pas de caractere lu, alors 
ret z retour. 
ld (3).a ; Sinon, stocke la car. a l'adr. 3 
ret 
minkey 
db ‘IMKEY",0 ; Chaine indiquant que la routine 
; detour” a ete chargee. 
detfin 
end 


IMPORTANT ! La commande 
DO INKEY doit être la première exécutée dès le 
lancemant de dBase, et ce, à chaque lancement 
de dBase. En effet, la routine de détournement est 
détruite dès que l'on quitte dBase (ce programme 
s'auto-détruira.. air connu). 

En cas de plantage immédiat après la 
commande DO INKEY, la situation est claire : 
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<SHIFT> <EXTRA> <EXIT> et correction du 
fichier INKEY.CMD par MODI(fy) COMM(and). 
Sinon, il est néanmoins nécessaire de vérifier que 
le détournement ne perturbe pas le fonctionne- 
ment normal de dBase sur des instructions en 
mode direct ou sur des fichiers de commandes 
préalablement bien éprouvés. Vos programmes 
personnels comme les programmes déjà parus 
dans l'Echo feront très bien l'affaire. 


Si tout se passe correctement, il y a de 
fortes chances que le fichier INKEY.CMD soit cor- 
rect. Alors sans plus tarder, testons le programme 
ESSCLAV (pardon ! je ne l'ai pas fait exprès, mais 
notre PCW n'est-il pas là pour nous obéir aveuglé- 
ment ?). A l'écran doit s'afficher en permanence le 
message "rien" ou le code ASCII de la dernière 
touche enfoncée. Taper <EXIT> pour mettre fin à 
la boucle infernale. 


set talk off 
ipoke 3,0 

‘do while t 

! 1f peek(3) # 0 


<ALT>W ou <COPY> 


nnumsnnnmssnsusnnnessneneneennosesseseanses dd 


Ido essclav 


Ce n'est qu'une fois ces tests couronnés 
de succès que vous prendrez l'habitude de lancer 
dBase, non plus par la banale commande DBASE 
<return>, mais par DBASE INKEY, à moins d'in- 
corporer la commande DO INKEY en tête du pre- 
mier fichier de commande de toute application. 


5, QUELQUES FONCTIONS 
UTILES en LANGAGE 
MACHINE 


Les utilitaires qui suivent ont pour but de 


simuler quelques fonctions d'usage courant. lIs 
peuvent être écrits de manière "traditionnelle" à 
l'aide des instructions dBase, mais au prix d'un 
allongement du temps d'exécution. Les pro- 
grammes présentés contiennent quelques 
contrôles élémentaires de la variable passée en 
paramètre. Mais pour ne pas alourdir des séries 
de POKESs déjà rébarbatives, aucun message d'er- 
reur n'a été prévu. Une restriction toutefois, si 
CALL attend une chaîne de caractères, il est 
impossible de vérifier que le paramètre remplit 
bien cette condition. Donc, l'emploi par erreur 
d'une telle routine sur une variable numérique ou 





logique aura des effets fâcheux et imprévisibles. 


Par ailleurs, pour la saisie de ces pro- 
grammes, il n'existe, pour contrôler que les 
POKESs sont corrects, aucun moyen simple du 
même principe que le logiciel de vérification 
"B-12" pour les programmes Basic. Prudence, 
vous allez donc devoir travailler sans filet. 


Chaque programme doit être saisi sous 
dBase au moyen de la commande MODI(fy) 
COMM(and) <SON NOM, puis les codes seront 
chargés immédiatement en mémoire par la com- 
mande DO <SON NOM: suivi de SET CALL TO 
<adresse d'entrée>. Pour chaque utilitaire, une 
carte d'identité mentionnant nom, adresse et 
signes particuliers sera donnée. Les listings sour- 
ce assembleur figurent dans les tableaux en 
annexe. Ce n'est qu'après des contrôles minutieux 
que les fichiers de commande pourront prendre 
place dans votre bibliothèque d'utilitaires dBase. 


5.1 UNE FONCTION MAJUSCULE () 


Nom : MAJUSCUL 


Adresse d'entrée : 42260. 

L'adresse d'entrée est la même que celle 
du chargement de INKEY. Mais, n'ayez aucune 
inquiétude, il n'y aura pas de "collision" à condition 
de toujours charger INKEY avant les autres utili- 
taires. 


Signes particuliers : 

Les tirets sont transformés en espaces. 
Pour annuler cette option, faites POKE 42329,0 
avant le CALL. Pour la rétablir, faites 
POKE 42329,45. 
Profession : devinez... 

Non, vous n'avez pas la berlue. Vous avez 
bien lu majuscule en français, et non upper en 
anglais. DBase dispose bien d'une fonction qui 
convertit une chaîne de caractères en majuscules, 
mais elle ignore les caractères accentués bien de 
chez nous : c'est la fonction !(<variable chaîne>) 
Essayer : 


? !("Trésor Public") 
donne : 
TRéSOR PUBLIC. 


Pas bien joli, tout cela (et pas bien gai non 
plus). Maintenant, sans plus tarder, tapez : 


set call to 42260 

store "André-François" to nom 
call nom 

? nom 


mmmnmmmsssss.q 
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Tableau 3 
* MAJUSCUL. CMD 


poke 42260,124,230,128,192,58,89,165,79,70,35,126,254,123,40,4,254 
poke 42276,125,32,4,62,69,24,41,254,64,32,4,62,65,24,33,254 

poke 42292,92,32,4,62,61,24,25,254,124,32,4,62,85,24,17,185 

poke 42308,32,4,62,32,24,10,254,123,48,7,254,97,56,3,214,32 

poke 42324,119,35,16,198,201,45 


Tableau 4 
org 0AS14h 
MAJUSC: 
ld ah 
and 80h ; Si pas de parametre, 
ret nz : alors, retourne. 
ld a (tiret) 
id ca 
ld b(hl) :;b= longueur de la chaine 
inc bl ; bl pointe sur debut de la chaine. 
maju 10: 
ld a,(hl)  ; Prend un caractere dans la chaine. 
cp d ;: Remplace les caracteres 
l'a zmaju20 ; accentues francais par les 
cp T ;: majuscules correspondantes. 
l'a nz,maju2! 
maju20: 
ld a,'E" 
a maju90 
maju2!: 
CP ‘© 
y nz maju22 
ld a, 'A" 
rx maju90 
maju22: 
Cp V 
y nz,maju23 
ld a,'C' 
y maju90 
maju23: 
cp T 
ÿr nz.maju24 
ld a,'U" 
Fr maju90 
maju24: 
cp c ; Remplace le tiret par un espace. 
| nz,.maju 50 
id a," 
y maju90 
maju50: 
Cp z'+1 ; Si >, ne fait rien. 
y ac maju95 
cp ; Si < a, ne fait rien. 
Jr cmaju95 
maju70: 
sub a'-'A" ; Minuscule -> Majuscule. 
maju90: 
Id (bla  ; Met le car, modifie dans la chaine 
maÿju95: 
inc h] 
djoz majui0 :jusqu'a la fin de la chaine 
ret 
tiret 
db "" 
end 


5.2 COMPACTAGE D'UNE CHAINE DE 





CARACTERES 
Nom: COMPACTE 
Adresse d'entrée : 42330 


Profession : 
Eliminateur de tous les caractères non 
alpha-numériques d'une chaîne de caractères. 


Signes particuliers : 

Le chargement préalable de MAJUSCUL 
est obligatoire. 

Les espaces peuvent être éliminés par 
POKE 42399,0 ou conservés par POKE 42399,32 
(avant le CALL bien entendu). 


Pourquoi un tel utilitaire ? Supposons un 
numéro de facture utilisé comme clé d'index. Les 
numéros 86/2001/35 et 86.2001.35 sont considé- 
rés comme différents par dBase.Pour une clé d'in- 
dex, il est préférable d'utiliser la chaîne "compac- 
tée" 862001135. Si un fournisseur ou un client 
vous téléphone au sujet d'une facture dont il vous 
communique le numéro, il y a fort à parier qu'il 
omettra de vous indiquer ces signes de pontua- 
tion, sans lesquels toute recherche risque d'être 
infructueuse. Le programme COMPASTE., CMD 
est là pour vous sortir de cette situation. Tapez : 


set call to 42330 
store "Fa/88,02,14-586 37" to numfac 
call numfac 
? numfac 
qui donne : 
FA88021458637 


5.3 VERIFICATION DE LA VALIDITE 


D'UNE DATE 


Le contrôle de la validité d'une date est 
assurément une nécessité vitale sans laquelle cet 
article n'aurait vraisemblablement pas vu le jour. 





Le programme VERIDATE est un peu 
long, donc attention à la saisie. Mais en contre- 
partie, il offre quelques possibilités intéressantes. 


Nom : VERIDATE 
Adresse d'entrée : 42400 
Adresse de sortie : 42555 


PEEK(42555) contient 0 si la date est vali- 
de, 255 dans le cas contraire. 


Profession : Vérificateur de dates. 


Eee DBASE Il - L'ECHO DU PCW N° 20 


ANGAGE MACHINE 


Signes particuliers : 

Possibilité de saisir une date vide (cas 
d'une date inconnue). 

Possiblité de ne pas saisir l'année, afin de 
gagner du temps lors des longues séries de 
à L,C say … get …. Dans ce cas, l'année prise 
par défaut est l'année courante. 


Toute date antérieure à 1980 est suppo- vd10: 
sée invalide. Dans le cas où vous auriez besoin de 
dates antérieures (une date de naissance par 
exemple), il est possible de modifier le program- vd20: 
me, soit de manière définitive dans le corps du 
fichier VERIDATE.CMD lui-même, soit de manière 
provisoire par POKE 42461,<année de départ 
entre 0 et 99> et de le restaurer plus loin par 
POKE 42461,80. 
Testons sans tarder : 
modi(fg) comm(and) demodate 
set talk off 
set call to 42400 
do while t 
store” / / “to mdatfac, mdatech 
erase 
à 10,8 say “Date de facture” get mdatfac pict "99/99/99" 
à 12,8 say “Date d'échéance” get mdatech pict “99/99/99" 
read 
clear gets 
à 20,8 
call mdatfac 
if peek(42555)-255 
à 20,8 sag “ERREUR : Date de facture invalide."+chr{7) 
loop 
endif 
call mdatech annorig 
if peek(42555)=255 
à 20,6 say “ERREUR : Date d'échéance invalide."+chr(7) 
100p vd30: 
endif 
à 10,23 get mdatfac 
à 12,23 get mdatech 
clear gets 
? "Tapez une touche pour recommencer, EXIT pour finir." 
wait 
enddo 
* VERIDATE. CMD vie 
poke 42400, 62,255,50,59,166,124,230,128, 192, 126, 254, 8,192 229,6,3 d50- 
poke 42416, 205,21, 166, 32, 2,16, 249, 225, 40,85, 205, 31,166,216, 200, 254 YANN 
poke 42432, 32,208, 87,205, 31,166,216, 200, 254,13,208,95, 222,205, 21,166 
poke 42448,58,56,166,225, 40,9, 229,205, 31,166, 225, 216, 254, 80, 216, 79 
poke 42464,122, 254, 31, 32,8, 123,254,8,56,1, 60,15, 208, 123, 254, 2 
poke 42480, 32,12,122,254, 30,200,254, 29, 32, 4, 121, 230, 3,192, 205,21 
poke 42496,166, 32, 12,183, 43,43,1,2,0,17,57,166,235,237,176, 62 
poke 42512,0,50, 59,166, 201, 62, 32, 35,190, 35, 32,1, 190, 35,201, 35 
poke 42528,78,35,126,35,214, 48,216, 71,121,214, 48,216, 79,7,7,129 
poke 42544,7,128,183,201,0,0,0,0,88,56,56,0 
org 0A5AOh 
vd60: 
VERIDATE: 


: verification de validite d'une date. 
; conditions de sortie : datetest = 255 si erreur, 0 sinon 
; indicateur de zero est mis si date vide. 


ld a Offh  ; Par defaut, datetest = 255 
ld (datetest).a ; (erreur) 
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ah 
80h : Si pas de parametre, 
DZ : alors, retourne. 
a(hl) ;a = longueur de la chaine 
8 :si<8 ,retourne. 
nz 
bhl ; Cherche si date =" / / ‘. 
b,3 : Sur les 3 membres de la date : 
estvide ; si membre est vide, 
nz,vd20 ;alors, continue. 
vd10 
bhl : Si date vide, alors retour 
z.vd70 ; sans erreur. 
calcule 
c ; Si non numerique, alors retour 
z ; Si jour = O, alors retour 
31+1 ; Si jour > 31, alors retour. 
nc 
d,a ; Sauve le jour -> d 
calcule 
c ; Si non numerique, alors retour 
z ; Si mois = 0, alors retour. 
12+1 ; Si mois > 12, alors retour. 
nc 
e,a : Sauve le mois -> e 
bl 
estvide ; Si annee vide, alors 
a,(anncour) ; remplace par annee courante : 
bl 
z,vd30 
hi 
calcule ; sinon, calcule l'annee. 
hl 
c ; Retour si non numerique. 
$1 
80 
c ; Retour si < annee origine. 
ca ; Sauve l'annee -> c. 
a,d 
31 ; jour = 31 ? 
2z,vd50 
a,e :mois>=8 7? 
8 
c,vd40 
a ; si oui, ajoute 1 
: Divise par 2. 
nc : Retour si jour = 31 et mois de 30 j. 
a,e 
2 : Est-ce fevrier ? 
nz,vd60 
a,d ; jour 
30 : Retour si jour = 30. 
z 
29 ; Si jour = 29 
nz,vd60 
a,c : et si annee non bissextile, 
3 
nz : alors retour. 
estvide ; Si annee vide, 
nz,vd70 ;alors, 
a ; (pas d'indicateur de zero) 
bi 
bl ; remplace par annee courante 
bc,0002 
de,anncour+i 
deh] 
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; dans chaine de caracteres. 





suite page 18 


du 


db 


moiscour; 


db 


db 





a,D 
(datetest).a ; Pas d'erreur -> datetest = 0. 
; Indicateur de zero mis ssi vide. 


a, 
hl ; Saute le separateur. 
(hl) : Si ler caractere du membre 
h]l n'est pas espace, 
2z,evi0 ;alors retour. 
(h1) ; 2eme caractere = espace ? 
bi 
; Indicateur de zero mis si vide. 
b] ; Saute separateur. 
c{(hl) :Premier caractere -> c 
bl 
a(hl) : Second caractere -> a 
bl 
‘0° ;: Unites : 
c ; Si non numerique, retour. 
ba ; sinon ->b 
a,c 
‘0° ; Dizaines : 
c : Si non numerique, retour. 
ca ; Sinon -> a, cc. 
; Multiplie par 4 
a,c :+c(*5) 
:*2(*10) 
a,b ; + unites. 
a : Positionne indicateur de zero. 
0 
0 : Date du jour. 
0 
88 : Annee courante (a initialiser). 
*86" ; Chaine de car. annee courante. 
0 
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Pour soulager les plus inquiets, je demarrerai ce rendez- 
VOUS par un avis personnel : La programmation : c'est 
tout simple! 

Je pressents l'étendue de votre surprise et pourtant: En 
deux minutes de réflexion sur les mots qui vont suivre, 
je suis persuadé que vous en conviendrez. La program- 
mation se résume à cela : 


Entrée Traitement Sortie 
En effet, quelque soit le langage, l'ordinateur ou le 


temps qu'il fait à Caracas le problème reste le même. 


D'abord les entrées. Venant du clavier ou d'une autre 
source, les entrées alimentent le programme de son 
indispensable sève. Imaginez le plus beau programme 
de statistique du monde sans l'once d'un chiffre à 
étudier et pensez au résultat... NUL! 

Ensuite vient le traitement. Il utilise les informations 
apportées par les entrées et en fait ce que le program- 
meur veut qu'il en fasse. En somme, c'est l'arbre alimen- 
té par la sève apportée par les entrées. 

Enfin éclose en fleur printanière, la sortie illustre la joie 
d'un programme bien fait. Elle constitue le résultat de 
l'ensemble, ce pourquoi l'arbre a poussé, ce pourquoi 
VOUS avez programmé... 


Pour illustrer ce propos imaginons quelques exemples : 


Calcul de la moyenne des élèves d'une 
classe 


Entrée : Les notes des élèves 

Traitement : Cumul des notes et division par le 
nombre d'élèves 

Sortie : : Affichage du résultat 







La programmation c'est d'abord l'analyse d'un pro- 
blème et la mise en oeuvre de ce qu'un langage 
offre comme solution pour le résoudre. Cette notion, 
toujours vague pour l'apprenti, finit par être compri- 
se lors d'une approche méthodique de l'esprit infor- 
matique. C'est le principe adopté dans cette initiation 
où chacune des fonctions va être passée en revue, 
dans un contexte plus proche de la réalité 
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Comptabilité 
Entrée: Ecritures, Taux divers, comptes, 
dates... 

Traitement : Ventilation, addition, soustraction, 
détection d'erreurs... 
Sauvegarde, grand livre, balance, 
bilan... 


Sortie : 


Je pense que maintenant vous êtes d'accord avec moi 
et que nous pouvons continuer dans l'allégresse printa- 
nière qui caractérise notre rencontre. 





anse 


Entrons dans le détail des entrées de données et 
voyons comment cette initiation peut vous aider à mieux 
les contrôler. 


Les entrées de données proviennent de plusieurs 
sources indépendantes : 


- Le clavier lors d'une opération appelée saisie. 

- La disquette quand elle lit un fichier, c'est le char- 
gement 

- Le bus d'entrée/sortie (au dos du PCW) lorsqu'une 
source quelconque est connectée, exemple : Une 
interface joystick, une souris, un digitaliseur, etc... 





Laissons de côté, disquette et autres sources d'entrées 
pour nous consacrer à la saisie qui constitue toujours le 
point de départ d'une prise de contact avec un langage. 


C'est ici que commence l'analyse proprement dite, soit 
l'étude détaillée des différentes possibilités et du traite- 
ment qui en résulte : 
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INITIATION AU BASIC 


Nous pouvons distinguer deux sortes d'entrée : 


Les informations de longueur plus ou moins variable et 
constituées de chiffres ou de lettres ou de symbôles ou 
de plusieurs de ces éléments : 

Des valeurs (3.14156, 50000) 

Des textes (Dupont, Marseille, Janvier) 

Des symbôles (CO2, #>, *) 

Mélangés (312+AM24 ou >4) 


Et les entrées de longueur généralement fixe et corres- 
pondant à un choix. Les exemples sont variés et nom- 
breux et nous les rencontrons souvent : 
Choix d'option par O ou N 
Périphérique (! pour Imprimante, E pour 
Ecran ou D pour les deux) 
Pressez une touche pour continuer, etc, 
etc... 


Ces entrées ne sont pas des données à manipuler par 
le programme mais ellesse contentent d'influer sur le 
déroulement-des différentes étapes d'un programme et 
ce, à tous les niveaux. 


Nous laisserons ce type d'entrées de côté pour nous 
consacrer exclusivement à celles du premier type. 


Dépendantes du programme que vous allez concevoir, 

les possibilités d'entrées sont assez variées alors qu'en 

fait, elles se rattachent à deux catégories assez simple : 
Numériques et Alphanumériques. 


Les entrées numériques sont constituées exclusivement 
de nombres en quelque précision que ce soit (entier, 
simple ou double) et en toute base acceptée par le lan- 
gage utilisé, en l'occurence le basic (base décimale, 
hexadécimale, octale). 

Exemple: 2323.23 ou 23E34 ou &HABCD (Base 16) 


Les entrées alphanumériques sont faites de tous les 
signes disponibles sur une machine soit : lettres, sym- 
bôles, chiffres, etc. 

Comme nous avons déjà travaillé sur les caractères 
alphanumériques, ou chaînes de caractères, lors de 
notre précédente initiation, nous savons faire la différen- 





En basic cette opération est liée à l'instruction INPUT 
suivie d'une variable adaptée à la mémorisation de l'en- 
trée. 
Commençons par quelques expériences de rigueur en 
chargeant le Basic comme la coutume l'impose (les 
amnésiques peuvent s'inspirer de l'annexe page 56). 
Dès l'affichage du prompt "Ok", nous pouvons entrer la 
ligne suivante : 

10 INPUT A <RETURN> 
Puis lancer ce bébé programme par RUN <RETURN> 
Un point d'interrogation s'affiche. Le programme attend 
l'entrée d'une valeur strictement numérique qui sera 
mémorisée en A pour la suite du traitement. 
En expert, vous avez compris que l'absence du $ à la 
suite de la variable interdisait la saisie d'une chaîne de 





caractère, vérifions-le par : 
RUN <RETURN> suivi de l'entrée d'un mot en toute lettre 
comme: ESSAI <RETURN> 


S'affiche alors le message “"Redo from start" et l'entrée 
est redemandée puisque le point d'interrogation revient 
à l'écran. 

Pour entrer la chaîne de texte, il aurait fallu que la 
variable servant à réceptionner l'entrée ESSAI soit une 
variable alphanumérique avec un dollar, exemple : A$, 
ENTREES$, B3$, etc... 

Retapons la ligne 10 de façon à l'adapter à la saisie de 
n'importe quoi : 

10 INPUT A$ <RETURN> PUiS RUN <RETURN> et 
entrée de n'importe quoi : 

Ça marche à tous les coups ou presque... 





L'instruction INPUT + variable alphanumérique n'ac- 
cepte pas toujours tout puisque trois exceptions doivent 
être connues soit : guillemets, tabulations et espaces 
s'ils sont placés en début ou en fin d'entrée. Le guillemet 
ne peut être entré seul s'il n'est pas cerné de tout autre 
caractère (exemple : AA). 

Exemple : Tapez directement INPUT A$ <RETURN> et 
entrez "ESSAI" <RETURN> puis vérifiez le contenu de 
A$ Par PRINT A$ <RETURN>-. Le résultat démontre 
mon propos, les guillemets ont disparu et le même essai 
avec plusieurs espaces, ou tabulations, placés devant 
ou derrière ESSAI donnera un résultat identique. 


Cette petite particularité d'INPUT a très peu d'incidence 
dans la plupart des cas mais elle existe et quand elle se 
présente, de nombreux programmeurs s'arrachent les 
cheveux pour comprendre ce qui se passe. 





FROIRUR® 


STD TOO ROC OTT TROT QOECOTETETEL) 


Pour être complet sur ce sujet et surtout prévoyant, je 
dois vous avouer qu'une instruction complémentaire 
permet la saisie et la conservation intégrale des guille- 
mets, espaces et tabulations.. Il s'agit de l'instruction 
LINE INPUT qui se programme exactement comme 
INPUT. 

Exemple: Tapez LINE INPUT A$ <RETURN> et entrez 
<TAB> <TAB> "ESSAI" <RETURN> PUIS PRINT A$ 
<RETURN», le résultat diffère bien car l'intégralité de ce 
que vous avez saisi se trouve mémorisée en A$. 
Faites quelques essais en ajoutant des espaces devant 
et derrière le mot ESSAI et mesurez la longueur de la 
chaîne contenue en A$ par l'instruction PRINT 
LEN(A$) <RETURN>. Retentez l'expérience avec 
INEUT et LINE INPUT et vous serez définitivement 
convaincus de la différence. 





Les instructions INPUT et LINE INPUT, que je ne vais 
plus distinguer dans les lignes suivantes, peuvent faire 
l'objet de certaines finesses de présentation que nous 
allons maintenant passer en revue. 
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D'abord, les messages. Mis entre guillemets, ils person- 
nalisent l'entrée en donnant à l'utilisateur occasionnel le 
moyen de connaître l'entrée espérée par le programme. 
Exemple : 

10 INPUT "Votre nom";A$ puis RUN affiche le mes- 
sage suivant : Votre nom ? et le programme attend 
l'entrée du nom. 


Notez que le programme ne fait aucun lien entre le mes- 
sage affiché et ce que l'utilisateur tape. Ce contrôle 
éventuel, comme toute autre vérification, fait partie de la 
phase traitement à savoir : les données entrées sont- 
elles conformes à l'attente du programme pour la bonne 
exécution de ce qu'il prévoit de faire. Ceci s'obtient par 
des tests qui ne sont pas encore à l'ordre du jour mais il 
importe de retenir qu'INPUT ne juge la saisie que par les 
limites déjà décrites soit : Type d'entrée (numérique ou 
non) et la présence de certains signes placées devant et 
derrière (espaces et guillemets). 


Ce n'est pas tout. INPUT peut aussi intervenir au niveau 
de la longueur de la chaîne entrée dans le cas d'infor- 
mations non numériques (chaînes). Dans ce cas, l'ordre 
varie : L'instruction devient A$=INPUTS (X) où x repré- 
sente le nombre de caractères maximum pouvant être 
entrés lors de son emploi : 

Exemple: Tapez A$=INPUTS (5) <RETURN> puis tapez 
123456 et le résultat ne se fait pas attendre : la frappe 
du cinquième caractère interrompt le processus d'entrée 
car le nombre de signes mis entre parenthèses est 
atteint. Le sixième est de trop et c'est flagrant! 


Comme vous l'avez sûrement remarqué, aucun des 
caractères tapés n'est affiché lors de l'emploi de 
INPUT$. Ceci peut avoir un intérêt dans certains cas de 
figure comme l'entrée d'un code confidentiel ou encore 
le contrôle éventuel de x pressions de touches avant la 
continuation du déroulement des opérations. 


Pour terminer sur les nuances d'affichage je parlerai du 
rôle discret mais effectif des signes de pontuaction point 
virgule et virgule qui, placés après l'ordre INPUT, ont 
des effets différents. 


Point virgule ajoute automatiquement un espace et un 
point d'interrogation qui rappelle à l'utilisateur qu'il s'agit 
d'une entrée du type question à laquelle il faut répondre. 


Exemple: INPUT "Votre nom";A$ <RETURN> 


Virgule ne s'embarrasse pas de tant de mondanité et 
place le curseur à l'endroit d'affichage de l'ordre INPUT 
soit à la suite du message mis entre quillemets. 

Bien entendu, cette formulation ne laisse en rien trans- 
paraître à l'utilisateur non averti qu'il s'agit d'une entrée 
à effectuer si le message prévu ne le met pas sur la 
voie. 

Exemple : INPUT "Votre nom",A$ <RETURN> 


La ponctuation n'intervenant pas sur INPUT${(X), puis- 
qu'il n'affiche aucun essage, nous pouvons considérer le 
chapitre comme clos. 
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INPUT accepte aussi l'entrée de différentes informations 
dans plusieurs variables selon la syntaxe suivante : 
INPUT "MESSAGE",A,B,C,D ou 

INPUT "MESSAGE", NOM$, PRENOMS, AGE 


Dans le premier cas, l'entrée des valeurs strictement 
numériques se fait comme cela : 
Exemple :1,2,4,23 <RETURN> 


Dans le second cas, nous entrons des données alpha- 
numériques et numériques : 
Exemple: DUPONT, JEAN, 37 <RETURN> 


Notez bien que le nombre d'éléments séparés par la vir- 
gule lors de la saisie doit correspondre au nombre de 
variables placées après le message et que l'ordre des 
données doit respecter le type attendues par chaque 
variable, soit numérique ou non numérique ou si vous 
préférez, valeur ou texte. 





Conscients que vous êtes du principe fondamental 
ENTREE-TRAITEMENT-SORTIE, vous venez d'aborder 
une partie importante du basic qu'il faut pratiquer sans 
aucun complexe. Nous suivrons ce plan tout au long de 
nos rencontres et les liens entre chaque élément vien- 
dront naturellement et très bientôt vous SAUREZ PRO- 
GRAMMER! 


INPUT + VARIABLE NUMERIQUE Entrée de toute valeur dans la pré- 
cision voulue par la variable 


Exemple : INPUT "UN NOMBRE" ;NB 


INPUT + VARIABLE ALPHANUMERIQUE Entrée de toute chaîne de 
caractères à l'exception des signes espace, tabulation et guillemets 
s'ils sont placés devant ou derrière la chaîne entrée. 


Exemple : INPUT "VOTRE NOM" ;NOMS 


LINE INPUT + VARIABLE ALPHANUMERIQUE Idem que précédent 
à l'exception des tabulations, guillemets et espaces qui sont intégrale- 
ment pris en compte. 


VARIABLE ALPHANUMERIQUE=INPUT (X) Entrée de toute chaîne 
sans affichage de la frappe et limitée à un nombre de caractères mis 
entre parenthèses. 


Exemple : CODE$=INPUTS (4) 

INPUT + VARIABLE1,VARIABLE?,...,VARIABLEN Entrée de plu- 
sieurs informations sur une seule ligne. Ces données doivent être 
séparées par une virgule et respecter le type de variables dans le 
même ordre. 


Exemple : INPUT "FICHE CLIENT", NOM$, PRENOMS, AGE, TEL$ 
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FICHES TECHNIQUES - BON DE COMMANDE 















REGLEMENT à l'ordre de LOG/!'STICK. 


CE BON DE COMMANDE TIENT LIEU DE 
FACTURE, GARDEZ EN UN DOUBLE POUR 
VOTRE COMPTABILITÉ. LA TVA INCLUSE 
DANS LE PRIX DE 150 F EST DE 23,52. 


*** Etranger : Compte tenu des frais d'encaissement prohibitifs, 


nous sommes au regret de ne plus pouvoir accepter les règle- 
ments par EUROCHEQUE. 


SIGNATURE : 


(celle du tuteur pour les lecteurs mineurs) 


. TE SUPERIEURE Les logiciels proposés dans cette rubrique sont de qualité supé- 


rieure. La suppresion de tout frais inutile tels que : packaging, 
promotion et intermédiaires, permet de les proposer à un coût 
défiant toute concurrence soit 150 F TTC pièce! 


Regroupé par domaine d'activité, chaque programme a fait ou fera l'ob- 
jet d'une fiche technique le décrivant. Ces fiches techniques sont 
publiées tous les mois et le numéro de l'ECHO contenant la fiche d'un 
produit se trouve dans la colonne "VU DANS ECHO N°" 


Livrés sur une disquette avec tous les fichiers utiles à leur utilisation, 
les EXCLUSIFS ont été testés avec une rigueur toute particulière et sont 
toujours accompagnés d'une notice permettant une prise en main rapi- 


Ces logiciels sont de qualité professionnelle et le prix exceptionnel de 
chacun n'est dû qu'à l'importante économie réalisée sur des frais sou- 
vent inutiles comparativement à l'intérêt qu'ils représentent pour les 
utilisateurs. 


Réf titre Objet Prix TTC VU dans ECHO N°... 
X001  COMPTASS Gestion d'association 150 20 
X003 GESTCOMPTE Gestion budgétaire 150 20 
X005  GESTIT Gestion de titres pour sté 150 - 
VIE PRATIQUE 
Réf titre Objet Prix TTC VU dans ECHO N°... 
X002  NOUMEROLOGIA Etude de la personnalité 150 20 
(numérologie) 
PROGRAMMATION/UTILITAIRES 
Réf titre Objet Prix TTC VU dans ECHO N°... 
X004  ROTAMAT Redéfinition de fonte 150 20 
pour ROTATE 
X006  AIDECPM Version française de HELP 150 - 


COMMANDEZ PAR TELEPHONE AU 48.65.44.55 OU PAR COURRIER EN RETOURNANT LE BON CI- 
DESSOUS À LOG/'STICK CAPN LE BONAPARTE BOITE 49 - 93153 LE BLANC MESNIL CEDEX. 


NOM:::sccsrmmmnrmemnnamaennsennen PHENOM 2eme 
ADRESSE nn de senc d dt dde ras nd restes se te etienne tisse 
CODE sé VILLE ssscsmsnmnnmenmenenenmanmennnentnmrandimentnse 
commande par la présente 
Les références suivantes | set te LPS RS | Eee nl Les bons | 
au prix unitaire de 150 F TTC 
soit un total de LAS FE rss F + port ° 

© frais de port France Métropolitaine : 15,00 F 

Etranger et DOM-TOM (par avion) : 35,00 F 

CA manoar C2] cop [] CHEQUE [] VISA/CARTE BLEUE 
N° LILI. validité …… lasreses frs 


ne PES LES EXCLUSIFS + L'ECHO DU PCW N° 20 










L E D EE T A I L 
La gestion des adhérents : 


Entré individuellement, les adhérents seront gérés 

par un sous-programme spécifique permettant des 

opérations simples et variées : 

- Modification de fiche (en cas de changement 
d'adresse par exemple) 

- Radiation ou réintégration 

- Visualisation des renseignements liés à un adhé- 
rent 

- Recherche d'un adhérent 

- Affichage de la liste des adhérents 
etc. 


La comptabilité générale : 


Cette comptabilité offre une grande souplesse tant 
au niveau de l'entrée d'écritures que des éditions. 
Les points forts sont : 
- Ventilation de toutes les écritures dans les 
comptes appropriés 
- Cotisation passée en recette et automatiquement 
imputée sur la fiche de l'adhérent. 
- Affichage permanent des soldes de BANQUE, 
CCP et CAISSE (option très rare) 
- Possibilité de libeller toute écriture passée 
- Gestion des immobilisations avec affichage des 
amortissements annuels et des valeurs compta- 
bles. 
- Module d'impression extrèmement performant 
avec : 
* Balance générale 
* Relevé de comptes 
* Journal général 
* Un compte de résultat à n'importe quelle 
date (avec calcul des amortissements) 
* Edition d'étiquettes auto-collantes 
* Lettres personnalisées 
Les éditions d'étiquettes et de lettres personnali- 
sées peuvent être sélectionnées en fonction de 
leur domicile, du montant de la cotisation réglée 
(ou de l'absence de cotisation) ou du numéro 
d'identification des adhérents. 


- La clôture des comptes est automatique et com- 
prend l'édition de la balance définitive au 31 
décembre, du compte de résultats, du grand livre, 
du bilan et le report des "à-nouveau". 


EN CONCLUSION 


Un programme EXCEPTIONNEL à un prix ridicule 
(livré avec un manuel complet).il est le premier de 
la série "LES EXCLUSIFS", et augure un succès 
sans précédent pour l'ensemble des logiciels de 
cette nouvelle formule. É) 


ENTATION 


ièrement compilée, donc rapi- 
; cette gestion d'association 
sra rougir de honte bien des 
rammes aujourd'hui vendus 
beaucoup plus chers... 
ÿanisé autour de menus clairs et 
facilement compréhensibles par un néophite 
ce programme est opérationnel en moins de 
x minutes. Il s'organise autour de deux axes 
majeurs de la gestion d'une association : 


- La gestion des adhérents 
- La comptabilité générale 


TITRE : COMPTASS 


, nine le da emplaies . f: jores l'an fan 
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NTATION 


ous accompagnent tout au 
jt un sens qui nous échap- 
ii selon des croyances uni- 
nues reflètent la structure 
üfonde de notre personnalité. 

prenons que notre nom, notre 
“ip et notre date de naissance portent en 
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Science ésotérique pratiquée depuis des millé- 
naires et de plus en plus en vogue en occident, la 
numérologie décortique les nombres associés à 
chacun et en tire une signification utile à la 
connaissance de sa personnalité. 









Nom, prénom et date de naissance servent donc 


x la racine de notre âme que seule pouvait ; ‘ 
à donner les nombres essentiels soit : 


éler une astucieuse étude à laquelle l'infor- 
atique se prête de bonne grâce. Le résultat 
ce travail se résume sur cinq pages d'inter- 
tation personnalisée qui surprendront les 
plus septiques d'entre nous. 


000000000000 000000000000 000000000000 00000000 000000 000000000000 000000000000 0 0 NN NS NS nn n nn nee nn en 


- Nombre de vie, d'hérédité, de chance, etc 


De plus, le programme propose une étude d'affini- 
té entre personnes ainsi qu'un condensé astrolo- 
gique sur une année quelconque. 

D SERRE À noter que la justesse des interprétations a stupé- 
fait la majorité des membres de la rédaction d'une 
manière vraiment surprenante. 


ones sen 000000000000 00000000 000 00000000000 00000000 000000000000 00000000 00000000 000000 000000000000 0000 000000000000 0000000 


000000 000000000 0000000000 000000 0000000 000000 000000000000 0000000000 00000000 000 00000000 000 nn 0 0e Sn nn sens n nn sense 


EN CONCLUSION 


nn 000000000000 00000000 000 0000000000000000000000 00000000 0000000000 00000 000000000 000000000000 000000000000 00000 000 000000 000000000000 


ns ns nn sens een n 0000000000 000000 000 0000000000000000000 0000000000 000000000000 00000000 000 0000000020 00 0 ses sn nn secs nee 


Si les logiciels de numérologie sont assez rares, 
félicitons-nous de l'extrême qualité de celui-ci qui 
mérite tout à fait sa place dans les chefs-d'oeuvres 
des "EXCLUSIFS". 


000000000000 000000000000 0000000 0000000060000000000000 0000000000 00000000000000 00000000 000000000000000000000000000000000000 0000000 


NOUMEROLOGIA V1.1 01988 Pascal Hodet 

ATTENTION: 

Ce programme a fait l'objet d'un dépot A.P.P 
(Association de Protection des Programmeurs) 
et toute utilisation commerciale est interdite 
sans le consentement écrit des auteurs. 


1. Calculer wa thène 

£. Relire dernière étuie 

3. Affinité entre deux personnes 
4. Nini-heroscope annuel 

S, Retour au CP/A 


Votre choix, s'il vous plait : W 
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LES EXCLUSIFS - L'ECHO DU PCW N° 20 


FICHE TECHNIQUE 









L E D EE T A I L 


Ecrit en Turbo-Pascal, GEST-COMPTE est très 
rapide. L'organisation d'ensemble est tellement 
simple et claire que le manuel livré avec pourra 
s'égarer sans que cela ne gêne outre mesure. 


Dès le lancement, le programme ne contient 
aucun compte et l'utilisateur créera les siens en 
leur donnant le nom qu'il souhaite. Particularité 
remarquable, le programme donne la possibilité de 
protéger chaque compte que ce soit : En écriture, 
en lecture, en effacement ou les trois. 

C'est excellent dans le cas d'une utilisation collec- 
tive du programme (exemple : Plusieurs services 
entrent un chiffre d'affaire dans leur compte sans 
pouvoir accéder au compte des autres services). 


Les opérations sur un compte se font sur celui sur 
lequel le curseur se trouve soit: Mouvementer, 
ajouter, retirer, renommer, protéger, visualiser 
le solde ou obtenir l'historique de l'année. 
L'ensemble de ces opérations restant sous le 
contrôle d'un éventuel mot de passe. 


La visualisation de l'historique annuel récapitule en 
un tableau les cumuls débit et crédit par mois, 
ainsi que le solde de l'année et différentes 
moyennes que chacun pourra interpréter comme 
bon lui semble. Ce tableau pourra éventuellement 
faire l'objet d'une représentation graphique sous la 
forme d'un histogramme imprimable par copie 
d'écran. 


EN CONCLUSION 


Budget familial ou gestion d'entreprise, ce pro- 
gramme puissant, convivial et particulièrement 
bien construit est certainement l'une des plus 
belles affaires des "EXCLUSIFS DE L'ECHO" 
dont la qualité d'ensemble est, répétons-le enco- 
re, remarquable ! 


LES LCORETE DATE : 09/02/88 HMS MOL Histogramne MN:1988 


All 


e calcul.. 


CE Te 





oussez 


NTATION 


MPTE est le programme rêvé 
us ceux qui désirent gérer 
udget de façon rationnelle 
omique. Le particulier pourra 
suivre son budget personnel 
race à des comptes indépendants 
_ faciles à créer et à mouvementer 
alors que l'entreprise pourra trouver 

de nombreuses autres applications, 
aussi bien budgétaires que statistiques, 
en utilisant les milles et une possibilités 
de ce fantastique programme. 


* 9512 (sauf impression histogrammes) 


QE ST CUE LE) DATE : 63/02/88 







ETIENNE EE CNE CE CNE CE 
Ca [rs [sue Lise Lies Tissue Diners 














Causfaws fans Jim [une Jimem [oem 
CORNE REXBETSETME CNET 





HUE. jun DR AR: HA 
Différence des totaux : 13204. Différence des noyennes : 1100.34 


R + Retour au programe 


ON 


1 + Lapression 


H + Histogramne 








LES EXCLUSIFS + L'ECHO DU PCW N°20 


FICHE TECHNIQUE N° 4 







‘bouvoir redéfinir les polices 
e leurs besoins mais aussi, 
odifier les polices de base ou, 
au moins, utiliser quatre nouvelles 
polices livrées par l'auteur. 


* 9512 avec imprimante parallèle exclusivement 


RIDLFINITION DES POLICES DE CARACTERES INPRIMABLES SOUS "ROTATE" 


aéfiniti tre LL tères utilisée: 
Sem AE Le plie fes Re de arc titi 


es polices sont sauvegardées, sur la disquette "ROTATE', sous les nons suivants: 


HS RE 


N'effectuer de manipulations de ces fichiers que sur des disquettes de sauvegarde, de 
nière à préserver les originaux. 


is SAUT et presser RETURN 


Placer en A: m disque pt CAM 





REDEFINITION DES POLICES DE CARACTERES DXPRIMABLES SOUS "ROTAIE" 
Police n° 2 DEUX .FON/DEUX MUR Caractère à nodifier : À 


re iustee LE ue hide fi Hotte" ” 








‘Rebanat’ 
peub dépernain nedifier à pen gré Eoub ou parbie 
de» quabre 
eb persennaliner encere 
pen decunenbs. 


Grace à 


"Rotamalt”, choque utilivateur de 
peut dévonnais modifier à von gré tout eu pantie 
des quatre pulices de canuctèrer de ce Peyicie? 
et penoennaliver encore duvuntage L'imprevvien de 
veo decumento. 


(ruce à 
< 





E 





R A 





P P L 





Passé en revue dans l'ECHO N°3, le logiciel 
ROTATE est le seul logiciel capable d'imprimer un 
fichier ASCII dans le sens vertical, soit avec une 
rotation de 90° par rapport à l'impression normale. 
Cette faculté permet d'imprimer, par exemple, des 
tableaux de MULTIPLAN sur plus de 132 colonnes 
sans qu'ils soient coupés en plusieurs morceaux 
du fait du retour chariot. 

De plus, ROTATE permet d'imprimer en choisis- 
sant parmi quatre polices de caractères et deux 
hauteurs. 


R OO T A M A T 


La redéfinition des polices de caractères s'effectue 
à partir des fichiers à extension NOR et FON de la 
disquette originale; pour cela, mieux vaut en faire 
une copie avant d'entamer toute modification qui 
se fera sur cette dernière. 

Lancé par le basic, ROTAMAT recopie sur M: les 
quatre fichiers de polices et propose la modifica- 
tion de n'importe laquelle d'entre elles. Ceci fait, il 
suffit alors de préciser le caractère devant être 
modifié, et après que sa matrice se soit affichée, 
de le retoucher à l'aide de l'éditeur inclus dans 
ROTAMAT. 


EN CONCLUSION 


D'une manipulation extrêmement aisée, ROTA- 
MAT est un excellent investissement ne serait-ce 
que pour les quatre polices livrées avec. 


"Rebate”’ 


chaque ubilisabeur de 


pedicen de caracbèren de ce Aegiciel 
davanbage L’'inprennien de 


"Rotule 





TER LES EXCLUSIFS - L'ECHO DU PCW N° 20 




















= 


PACK GESTION | 
REF : PGE1 






GESCALC 





= 
PATRIMOINE 
BUSINESS 
PERT 


DEMO : AZERTY 


anses ETIQUETTES DBASE 


A PACK DBASE 
= MULTIPLAN MULTIPLA.KEY 


LE STANDARD KEY 
DBASE.KEY 


MENU.CMD 
DEMO : AZERTY 


.0000000000000000090000000000000000e 


TAQUIN 
BIORYTHMES 
SNAKY 
PARACHUTE 
JEU DE LA VIE 
SUPER QUIZZ 
DEMO : AZERTY 


TURBO.KEYS 


ECHO.BAS 


TROUVE.BAS 
VERIF B12+ 


INVESTISSEMENT 


PROGI.CMD, PROG.CMD 


MENUS DEROULANT 


CLAVIER MAKER 


DEMO : GRAPHIC BASIC 


ATIQUES 


Les disquettes thématiques de l’Echo reprennent tous les 
programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 


Æ ve 
© PACK GESTION ii 


E REF : PGE2 





PACK 
UTILITAIRE 1 
‘ REF: PTU1 


Es 

— PGE 3 

FM" PACK GESTION 3 
en 













GESTION DE = 
STOCK 

ATHEMYS 

SUPER GRAPHE 
EVALUATION 
T.A.O. 

DEMO : TASWORD 


AUTO- 
PROGRAMMATION 

GAG ET SETKEYS 
PRINTER MAKER 
MONITEUR DE DISC 
MATRIX 

LOCASC2 

TABLEAUX ASCII 

DEMO : GRAPHIC MAGIC 


COMMANDES ET FICHIERS 
DU SYSTEME EXPERT 
COMMANDE ET FICHIERS 
A LA RECHERCHE DE 
L'OCTET PERDU 

CODES GRAPHIQUES POUR 
DBASEII 

DEMO : TASWORD 


CHRONOS3 

INVEST3 

BUDGET FAMILIAL 
GESCALC2 

CALEND.PC 

DEMO : GRAPHIC MAGIC 














POKER FOLIES 
AGENDA 

MUSIC MACHINE 
MATHELEM 
LOTO 

OTHELLO 

DEMO : AZERTY 


GSX.BAS 

GSXDAO 

T.A.O. 

LES PLUS D’EXBASIC 
SUPER GRAPHE 

DEMO : GRAPHIC MAGIC 


LOGOGRAF 

LOGOTRAM 

ETIC FACILE 

CODES GRAPHIQUES POUR 
DBASEII 

TRIFICH 

CALEND.PC 


GENERATEUR D’INDEX 
TRANS LOCASC2 

TOUS LES FICHIERS DEPUIS 
LE N°1 


NOUVEAU) 


.000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 


Prix unitaire 
Par 6 références 





ww, 
ë 
2 
5 
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ô 
w 
Wu 
r4 
= 
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mm 
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L'ECHO DU PCW N°19 


Bon de commande au dos 


ADD E Mée Lo 
7 : 500 F TTC (Soit 1 référence GI 
Par 12 références : 900 F TTC (Soit 3 références GRATUITES) 


ARRETER LE TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les programmes qui les composent sont 
ceux du numéro correspondant... Alors contre l'usure prématurée du cla- 
vier.. une seule solution : Commandez-les ! 


ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de Juin froissé ? Comment pouvez- 
vous supportez cela ? Vous ne pouvez plus, alors d’Echo vous le dit... C'est 
la reliure qu'il vous faut ! Prévue pour classer une année complète soit onze 
numéros, elle garantit la longévité de votre collection et vous fera gagner 
un précieux temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro 
de nombreux sujets essentiels ont été abordés. L'information qui vous man- 
que est probablement dans l’un d’entre eux. Alors ne cherchez plus vaine- 
ment et complétez, sans attendre votre collection avec les sommaires des 
anciens numéros. 


nce GRATUITE) | 





Z POUR LUI! 


Notez chacun des articles que vous avez lus et retournez ce questionnaire à L'ECHO. 
Chaque mois, l'auteur dont l'article a obtenu la meilleure moyenne se verra attribuer 
une prime de 1000 F et le lecteur tiré au sort recevra un magnifique cadeau-surprise. 








PAGE PAS LU NUL MAUVAIS MOYEN BON EXCELLENT NOTES 
8 O O O O O OÙ . us 120 
13 O O O O O ©Q 120 
19 O O O O O ON aux 120 
33 O O O O O Oro ni 120 
36 O O O O O OO As 120 
39 O O O O O Où 0 ! mt 120 
47 O O O O O OS 4 120 
50 O O O O O Os 120 
NOM sens anses PIÉNOMsnmsemmcmmenes Age... Profession... 
‘annule et remplace les précédents D 
Melle/Mme/M./Sté/AsS*-Nom sense 
B O N\ PRÉNOM ésmanmmmmtonemarmmsNmREREcENnNsEnsses ATOS came 
DS Code Postal "NRC ON RUE 
C O D E CP TT RE ER ES PSone ie 
COMMANDE PAR LA PRESENTE Ssyec la mention inutile 
JOURNAL L'ECHO DU PCW TTC TVA 7% incluse dans le prix TTC 
ee x ABONNEMENT D'UNE ANNEE soit ONZE NUMEROS soit ….….x 290F (France) =..…..…..….F (TVA=18,97) 
HS x ABONNEMENT D'UNE ANNEE soit ONZE NUMEROS soit ……..x450F (Etranger et DOM-TOM) =.….….…..F (TVA=29,44) 
ANCIENS NUMEROS" 1 2 345 6 7 8 9 10 11 12 13 14 15 16 17 18 19 soit x 30F (France) Ses F (TVA= 1,96) 
ANCIENS NUMEROS® 1 234567 8 9 10 11 12 13 14 15 16 17 18 19 soit x 40F (Etranger et DOM-TOM) =... F (TVA= 2,62) 
encerclez les numéros désirés 
DISQUETTES ECHO DU PCW TTC TVA 18,6% incluse dans le prix TTC 
srl x ABONNEMENT D'UNE ANNEE soit ONZE NUMEROS soit.………..x690F (France) =.....…F(TVA=108,21) 
see x ABONNEMENT D'UNE ANNEE soit ONZE NUMEROS soit…….…..x900F (Etranger et DOM-TOM) =.…....F(TVA=141,15) 
DISQUETTES® 12345678 9 10 11 12 13 14 15 16 17 18 19 20 soit... x 80 (France) Ærntihese F (TVA=12,55) 
DISQUETTES® 12345678 9 10 11 12 13 14 15 16 17 18 19 20 soit... x 95F (Etrangeret DOM-TOM) =... F (TVA=14,90) 
“encerclez les numéros désirés 
RELIURE ECHO DU PCW TVA 18,6% incluse dans le prix TTC 
us tss x RELIURE DE CLASSEMENT ANNUEL (contient 11 numéros) soit.……..x 80F (France) =...….…F (TVA=12,55) 
sb x RELIURE DE CLASSEMENT ANNUEL (contient 11 numéros) soit.……..x 95F (Etrangeret DOM-TOM) =.....F (TVA=14,90) 
DISQUETTES THEMATIQUES TVA 18,6% incluse dans le prix TTC 
REFERENCES?° PGE 1 PGE2 PGE3 PTU1 PTU2 POM1 soit... x100F (France)* 
REFERENCES® PGR 1 PGR2 PJE1 PJE2 PLO1 PDB1 ou... 6 pour 500F* 
‘encerclez les références désirées OÙ se 12 pour 900F* Ærcrosooossose F (TVA=15,68) 


“Etranger et DOM-TOM, ajouter 7 F par disquettes thématiques 






REGLEMENT A L'ORDRE DE LOGI/'STICK PAR : 
© MANDAT ÛJ CHEQUE ÛJ CCP ÛJ VISA/CARTE BLEUE SIGNATURE OBLIGATOIRE 


numéro de la carte date de validité (celle des tuteurs pour nos lecteurs mineurs) 
Tous ces prix sont nets et incluent le port et l'emballage 
HE EC | NE 1 UN EE ER LAS PE re 
ATTENTION, CE BON DE COMMANDE TIENT LIEU DE FACTURE. 
CONSERVEZ-EN UN DOUBLE POUR VOTRE COMPTABILITE . 


A RETOURNER A L'ECHO DU PCW- LOGI'STICK Edition 








Les photocopies sont disponibles 
au même prix !! 
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SPECIAL 
DBASE 


SPECIAL 
LIGHT PEN 



















SPECIAL 


ECRAN MUSIQUE 















































ES S 
G 
SO SPECIAL 


B BASIC : 
COMPATIBILITE CPC/PCW 
M DBASEI : INITIATION {1} 
I COMMENT CHOISIR SA 
COMPTABILITÉ {1} 
M LES CONFIDENCES DE LOCOSCRIPT 
M LANGAGE MACHINE INITIATION (11) 
M DOSSIER : L'ECRAN 
PROGRAMME : INVESTISSEMENT - AGENDA 
ESSAIS : LA SOURIS - TOMAHAWXK - ROTATE 
= EXBASIC ET LES LIVRES DE MULTIPLAN 


M BASE : INITIATION (11) 

LES LIVRES DE DBASE 
LES TRUCS DE DBASE 
M DES CADEAUX POUR PCW 
M TRANSFORMER UN PCW 

EN SERVEUR MINITEL 

ILES CONFIDENCES DE LOCOSCRIPT 

M PROGRAMME : MATRIX - PATRIMOINE 
BESSAIS : TASWORD 8000 - MEDIACOMPTA 

MX330 - CLEF POUR PCW 


£ Tous les programmes du numéro 4 
= sont sur la disquette 4 


BCOMMENT CHOISIR 
SA COMPTA {|} 
LES CONFIDENCES DE 
LOCOSCRIPT 
BASIC : GSX - UN DEPART 
SAISISSANT 
1 PROGRAMME : POKER FOLIES 
M REPORTAGE: AMSTRAD SHOW 
MESSAIS : LIGHT PEN - 3D CLOCK CHESS 
BIORYTHMES - LIVRE JETSAM - AZERTY 


M DBASEI : 
INITIATION (111) 

M CP/M : SETLST 

I TELEMATIQUE : L'EMULATION 


MINITEL 
M LES CONFIDENCES DE LOCOSCRIPT 
M PROGRAMME : MUSIC MACHINE 
BUSINESS 


MESSAI : COMPAGNON - MX550 - STRIKE FORCE 
HARRIER - PCW10 


£ Tous les programmes du numéro 5 
= Sont sur la disquette 5 














Tous les programmes du numéro 3 
sont sur la disquette 3 





—_ Tous les programmes du numéro 1 sont sur la disquette 1 
_— + Une démonstration gratuite d'AZERTY 














SPECIAL 
PLUS 


SPECIAL 
COMPTA 


SPECIAL 
SOMMAIRE 


SPECIAL 
JEUX 























































MESSAI : SPOOL 
M DBASE |! : LES PLUS 
INITIATION (IV) 

MCP/M: LES PLUS - DELUGE 


M ESSAI : MAILING 
MB DBASEI : LES LIVRES 
INITIATION (V) 

M COMMENT CHOISIR SA 


MESSAI : MEMENTO 
BILAN PLUS 

M DBASEI : INITIATION (VI) 
M CP/M : TOUS LES LIVRES 


M DBASEI : 
INITIATION (VII) 
LES AVEUX DE MME 
LACAILLE {I} 

























ASCII (1) COMPTABILITE (IV) M ANCIENS SOMMAIRES LIVRE : FICHIER SUR AMSTRAD 
M LOCOSCRIPT: LES CONFIDENCES M L'EVASION TELEMATIQUE THEMATIQUES M DELUGE ASCII (IV): RPED 
LES PLUS M DELUGE ASCII (11) M L'EVASION TELEMATIQUE ILES CONFIDENCES DE LOCOSCRIPT 
M REPORTAGE: AMSTRAD SHOW LES CONFIDENCES DE LOCOSCRIPT ILES CONFIDENCES DE LOCOSCRIPT I L'EVASION TELEMATIQUE 
M L'EVASION TELEMATIQUE ILES BONS PLANS DE MULTIPLAN M DELUGE ASCII (111) : MULTIPLAN M PROGRAMMES : MATHELEM 


M PROGRAMMES: GESTION DE STOCK - DAO ET GSX 


È Tous les programmes du numéro 6 sont sur la 
= disquette 6 + Une démonstration gratuite de 
To TASWORD 8000 


1 PROGRAMMES : PRINTER MAKER 3 - UNE COMPTA 
£ Tous les programmes du numéro 7 sont sur la 
disquette 7 + Une démonstration gratuite de 

= TASWORD 8000 


M PROGRAMMES : GESCALC 


Tous les programmes du numéro 8 sont sur la dis- 
quette 8 + Un programme inédit et gratuit ! 


MESSAI: GRAPHIC MAGIC - JOYSTICK 
2 Tous les programmes du numéro 9 sont sur la 
disquette 9 + Une démonstration gratuite de 
= GRAPHIC MAGIC 












































SPECIAL SPECIAL SPECIAL SPECIAL 

















































TELECOM- PROGRAMMES PAO SALON 
MUNICATION 7 
M DBASEI : MESSAI ; TURBO ESSAI : DTP-PAO MESSAI : DRIVE 5 1/4 
INITIATION (VIN) EXPERT BASE VIDI MX-990, ASTRO SOURIS KEMPSTON 
I COMMUNICATION : M DBASE Il : INITIATION (IX) M INITIATION À CP/M (2) M INITIATION BASIC (3) 
L'UNIVERS TELEMATIQUE - LES I L'EVASION TELEMATIQUE INITIATION À DBASE (X) / INITIATION DBASE (XI) 
LIVRES - RS232 M DEMARRER EN CP/M INITIATION AU BASIC (1) 







M LOCOSCRIPT LE SECRET DES PAGES 
IL INITIATION A L'INTELLIGENCE 
ARTIFICIELLE 
M PROGRAMMES : MONITEUR DE DISC, LOGOGRAF 
M LOTO, STICKER-MAKER, T.A.O. 


É Tous les programmes du numéro 11 
= sont sur la disquette 11 


INTRODUCTION A LA PAO 
1 PROGRAMMES : INVEST +, 
VERIFICATEUR B-12, QUIZZ, LOGOTRAM 


BB L'EVASION TELEMATIQUE 
M DIVERS: DECOUPE BANDES - PCW VECU 
M CP/M: TOUT SUR LE CLAVIER 
M PROGRAMMES: PERT - RS/MAKER - OTHELLO 
M ESSAIS: MODEM OLITEC - CALVACOM - MAIL232 


Tous les programmes du numéro 10 
sont sur la disquette 10 


I L'EVASION TELEMATIQUE 
@ REPORTAGE : AMSTRAD EXPO - 
PCW SHOW - BELGIQUE 
I PROGRAMME : LE JEU DE LA VIE 


TRIFICH - GESCALC2 - INVEST2 


È Tous les programmes du numéro 13 
= sont sur la disquette 13 











È Tous les programmes du numéro 12 
== sont sur la disquette 12 


SPECIAL 
ASTUCES 

















SPECIAL 
BANC D'ESSAI 



















ESSAI : SCANNER, 
SIGNWRITER 
M TELEMATIQUE : L'EVASION 
M REPORTAGE : E. MEZO 
M DBASE : INITIATION LA. (3) 
M PROGRAMME : LOCOSCRIPT, 
BUDGET FAMILIAL 
M CARTE BLANCHE : VINCENT LEDOS 
MINITIATION AU BASIC (3) 
M CP/M : TOUT SUR LE CLAVIER 


È Tous les programmes du numéro 14 
= sont sur la disquette 14 















M BANC D'ESSAI : 
PCW 9512, HERAKLIOS, 
ASTRO FUTUR 

M DBASE || : À LA RECHERCHE... 


M TOUT SUR LES RUBANS 
M BASIC : INITIATION (4) 
I PROGRAMME : CHRONOS 
ALES VOEUX DE L'ECHO ! 


Tous les programmes du numéro 15 
sont sur la disquette 15 




















m LA LOGITHEQUE 
DU 9512 
M HISTOIRE D'UR 
m TURBO PASCAL (1) 
æ CP/M (4) 
m LES ENTRAILLES DU PCW 
m ASCII ET DBASE 

M CARTE BLANCHE À ROGER SCHYNS 

M LE PCW LOOK PC 


Tous les programmes du numéro 17 
sont sur la disquette 17 


BASIC : UTILITAIRES : 
CLAVIER MAKER, 
TROUVE.BAS 
JEUX : SNAKY, PARACHUTE 
M DBASEI : À LA RECHERCHE DE... 
BH CP/M : INITIATION 13) 

M CARTE BLANCHE À O. COQUIN 

M L'EVASION TELEMATIQUE 

































Tous les programmes du numéro 16 
sont sur la disquette 16 






S 


S'E 
/ S 
/ Le @ SPECIAL. 
N COURRIER 
/ / Æ PROGRAMME : 
4 TAQUIN, LOCO INDEX 
/ M INITIATION : CP/M (61, 
BASIC (5), PASCAL (2) 
M LES CONFIDENCES DE 
LOCOSCRIPT 
m BANC D'ESSAI : MOP-MBP (TRAITE- 
MENT DE TEXTE ET BASE DE DONNÉES) 
M L'EVASION TELEMATIQUE - EXPERIENCE 
D'INSTALLATION D'UN SYNEA 


Tous les programmes du numéro 18 
—= sont sur la disquette 18 


LE SECRET DÜ BONHEUR 





NOM BOGART ÉTAT el" HUMPHREY 
PE 5 1/02/1989 ONE 674894 


Celle cane sinctement personnelle SIGNATURE XXX 


donne droit a toules les achivifes du club 


LE CUB ECHO 
D 5 U 
PC: W 






 _ : CLUB, ces Vassgrines dé 


être plus PCWiste que jamais | 
N'attendez pas pour vous inscrire et pour recevoir votre carte 


BON DE COMMANDE CLUB personnelle qui est déjà le symbole de ralliement des PCWistes 





avertis. 
Tarif pour une année : J'adhère pour une année à compter du / / au CLUB 
FRANCE 350 F. ETRANGER 495 F 
Etudiants et chômeurs : N PRENOM 
FRANCE 290 F. en — 
ETRANGER, DOM-TOM 390 F AGE ADRESSE 
Règlement par : [] chèque ou 
[] mandat à Logi’stick édition 
Ù Visa Li 
mn mme | CODE POSTAL _ 
Signature obligatoire : TEL. : PROFESSION 


à retourner à : CLUB ECHO DU PCW, LOG/’STICK EDITION, 
CAPN Le Bonaparte, Boîte 49, 93153 LE BLANC MESNIL CEDEX 





> b 
> NN 9) à © 

b »b b bb bb bb b 
> > 


bb D bb b 


D pb D bb b b b b 
bb pb pb b »b 


NOS"REVENDELRS SPECIRLISES 








2 boutiques spécialisées Amstrad 
BOUTIQUE PROFESSIONNELLE 
20, rue de Montreuil 94300 VINCENNES - (1) 43.28.00.71 
BOUTIQUE MICRO-FAMILIALE 
22, rue de Montreuil 94300 VINCENNES - (1) 43.28.22.06 





Ouvert du mardi au vendredi de 10h 30 à 13hetde 15hà 19h - le samedi de 10 h 30 à 19 h - A 100 m du RER Vincennes et du Métro Château de Vincennes 





tt 
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Lis 
ms fe ap SN 
PPC512D ...: 


PPC 640 SM 
PPC 640 DD 




















La nouvelle AMSTRAD LO 3500 
90 F TTC 


matricielle 24 ai 


Jeux de caracte 

Jeux de caractères graphite 

+ Interface : Parallèle (compatible Céfitronics) 
« Taille mémoire tampon : 7 Koctets 


+ Pack. imp. pour connecter sur PCW 8256-8512 





ACCESSOIRES 





































Magnétoscope Secam 
type “H.Q.” VHS. 
Entièrement 
compatible Canal + 
Télécommande à 
infrarouges. 





D alinéor (comptabilité) O fairlight I. ............ ie crésus (logycys) ......1175F 


O anals of rome... 265F © franck bruno's boxing 8 À Di Se res ce ACCESSOIRES 


Castro couple ........ -600F  Cagraphic magi JDtate ................. 





Dastrol .................450F. NOR Se se 2 NWMNer ............ - D ruban couleur .................. 150F 
D souris Kempston . ............... 850 F C astro Il peseeseesersees O Support moniteur mobile .......... 425F 
O scanner master can ..............695F C1 astro Ill [a] starglider as 0 à -.. 260F © graffpode 3 (avec logiciel)... 1850 F 
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<RPOW 512 7... .. 4990FT 


0 PCW 9512 5790 F TTC 


Le TN URSS AIT) - 
TRANSFERT DE FICHIER 
(Format ASCII) 

PCW &> PC 


à partir de 1500 F TTC 


L © tête d'impresS 
Gratuit pour tout achat d'un PC 


© vitesse d'impression de 1 

30 cps en NLQ 

© entraînement friction ou traction 
© mémoire tampon de 4K 

© interface parallèle intégrée 

© compatible EBSON-IPM 

@ bac feuille à feuille en option 


O imprimante STAR LC10 2585 F TTC 
+ Pack. imp. pour connecter sur PCW 8256-8512 











PACK IMPRIMANTE 


Interface RSS 232 | Parallèle + 
cable Imprimante + Locoscript Il 


CO Pack imprimante 1235-F 990 F TTC 













LOGICIELS 













































































Mémorisation de 
5 programmes. 
sur 14 jours. 
Fonction “T.R.P.": 
2 prises Péritel 


MAGNETOSCOPE À CASSETTE 


over 4600 + 3490 3290 F TTC 
ver vaoo + 3390 3790 F TTC 














tes de crédit Aurore et Pluriel bienvenues CARTES 





COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F pour achat sup. à 1000 F. 80 F pour achat sup. à 2000 F). 


NOM 


JEPOSSEDE: OIPCW8256 COIPCW8512 CIPCW 9512 





ADRESSE 


TÉL. __________ CODE POSTAL VILLE 








Mode de paiement : [1 chèque / [] mandat / Ü 





Su | : ts 
contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 


* OCB N° de carte L_ 1 1 1 | 1 1 1 | 1 1 | 1 1 1 | | Date de validité Signature 








KR SAISIE DU PROGRAMME: 


La version finale du programme est entièrement 
assemblée de façon à tourner directement sous 
CP/M. Pour obtenir le fichier définitif appelé 
CLOCK.COM , il faut d'abord procéder à la saisie 
et au lancement du programme chargeur basic 
DATACLOC.BAS. La tâche de ce chargeur 
consiste à créer le fichier CLOCK.COM et à le 
remplir avec les codes en langage machine du 
programme final. Une fois sa fonction remplie et si 
CLOCK.COM fonctionne, le programme 
DATACLOC.BAS ne sert plus à rien. 


HIER RESUME : 


1/ Saisie et vérification sous basic de 
DATACLOC.BAS (aidez-vous de l'annexe Page 56) 
2/ Sauvegarde de DATACLOC par 

SAVE "DATACLOC" <RETURN> 

8/ Lancement de DATACLOC par RUN (prévoir 
5 Ko libres en A:) 

4/ Quitter le Basic par SYSTEM <RETURN> 

5/ Lancement par CLOCK <RETURN> 

6/ Réglages divers selon les explications du cha- 
pitre suivant. 


XKAX DÙ PROGRAMME 


Une fois lancé, le programme CLOCK est immé- 
diatement opérationnel. Différentes possibilités 
sont alors disponibles : 

- Mise à l'heure par <T> 
Les heures augmentent d'une unité à chaque pres- 
sion de <H> 
Les minutes augmentent d'une unité à chaque 
pression de <M> 
<ENTER> entérine le réglage. 


- Mise en service de l'alarme par <A> 
Une pression de <A> met alternativement l'alarme 
ON ou OFF 

- Réglage de l'alarme par <C> 
Les heures augmentent d'une unité à chaque pres- 
sion de <H> 
Les minutes augmentent d'une unité à chaque 
pression de <M> 
Les secondes augmentent d'une unité à chaque 
pression de <S> 
<ENTER> entérine le réglage. 

- Option BIP par <B> 
C'est par la pression de <B> que le BIP est 
désactivé lorsque l'alarme sonne. 


ACRIA ULTIMATE 


RAA RÉ AK HACŒNROUE: 


Le programme utilise l'heure du système contenu 
en DCB dans le bloc de contrôle (cf Echo 17, 
"Les entrailles du PCW"). Les adresses (en déci- 
mal) sont : 
HEURE : 64502 
MINUTES : 64503 
SECONDES : 64504 


Le réglage de l'heure peut aussi se faire avant lan- 
cement à l'aide du programme CP/M: DATE.COM. 
Le tout pouvant être intégré dans un fichier à 
extension SUB comme décrit dans l'Echo 18in 
Initiation au CP/M - 6ème partie. 


LES FICHIERS CLOCK.COM ET 
DATACLOC.BAS SONT SUR LA DISQUETTE 
ECHO N°20. 


The alarn clock 61988 Nono Ver 1,1 


Tine running : 00:02:09 
Alarm off Bip on 
A:ALARME ON/0FF B:BIP ON/0FF  C:RECLACE DE L'ALARME T:NISE À L'HEURE EXIT:QUITTER 


It's an rc en ciel club production... 


The alarm clock 61988 Nono Ver 1,1 





Tine running : 19:33:13 





Alarm off Bip on 
A:ALARME ON/0FF B:BIP ON/OFF  C:REGLAGE DE L'ALARNE T:NISE À L'HEURE EXIT:QUITTER 


It's an Arc en ciel club production... 











PROGRAMMATION BASIC + L'ECHO DU PCW N° 20 RS 


ASSEMBLEUR/BASIC 


i8 ‘ 
20 ‘ The alarm clock basic loader 
30 ‘ 
40 PRINT CHR$(27)+"E"" (V4) 

50 ‘ 

60 ‘ Mise en place des codes machines 


80 PRINT:PRINT:PRINT "Mise en menoire du prograane, 
90 RESTORE 228:PROG=4HC000:S=0:FOR 1=0 TO 3754! (1K) 
100 READ AS:A=VAL("4&H"+A$):S=S+A:POKE PROG+I,A:NEXT' (B0) 


110 IF 5370002! THEN PRINT "Erreur dans les datas,,, 
) 

120 ‘ 

130 ‘ Sauvegarde des datas 

14Q 1 


150 PRINT:PRINT:PRINT CHR$(7):"Inserez un disque dans le 
À, puis pressez une touche, ,"' (KM) 

160 IS=INKEVS:IF I$="" THEN 160' (SE) 

170 PROG=4HC737 :CALL PROG' (65) 

180 PRINT:PRINT:PRINT "Sauvegarde terninée,, 
190 ‘ 

200 ‘ Data code machine 


,"#END' (97) 


220 DATA 21,86,08,11,00,C8,01,F5,66,ED,E@,CD,9A,CO,CD,41: 
230 DATA CS,C0,72,C5,AF,32,FC,01,32,80,02,3E 01 ,32,58,06;: 
240 DATA CD,63,C0,81,00,82,21,73,86,CD,56,C@,01,80,83,CD: 
250 DATA 35,C8,66,5A,CD,1A,C0,01,60,00,CD,35,C8,66,5A,CD: 
260 DATA 14,C8,01,80,1C,21,9A,06,CD,56,C0,81,00, 1D,CD,35: 
278 DATA CO,06,5A,CD,1A,C0,81,08, 1A,CD,25,C8,06, SA, CD, 1A: 
280 DATA C,01,00,19,21,07,87,C0,56,C0,81,00,18,CD,35, C0: 
290 DATA 06,54, CD, 1A,C8,3A,FC,O1,FE,81,28,0B,01,82, 17,21: 
300 DATA E7,06,CD,56,C0,18,39,81,02,17,21,05,06,CD,56, Ce: 
310 DATA 3E,01,C0,03,C8,01,20,17,C0,35,C0,3A,FD,81,C0,68: 
320 ' 

330 DATA C3,C0,59,C0,3€,3A,CD,03,C0,3A,FE 01 ,CD,8B,C3, CO: 
340 DATA 59,C0,3E,34,C0,03,C0,3A,FF,81,CD,0B,C3,CD,59,C: 
350 DATA 01,00, 16,CD,35,C0,06,5A, CD, 1A,C0,34,58,06,FE,01: 
360 DATA 28,08,01,3C,17,21,1F,08,C0,56,C0,18,89,01,3C,17: 
370 DATA 21,15,08,C0,56,C8,01,02,15,21,C3,06,CD,56,C0,01: 
380 DATA 00,13, C0,35,C0,06, SA, CD, 1A,C0,18,65,00,0,00,08: 
390 DATA 00,C0,08,C0,C0,D7,C5,ED,48,88,C7,0B,E0,43,08, C7; 
400 DATA 78,B1,CC,72,C5,3E,02, CD,D3,C8,01,20,15,CD,35, C8: 
418 DATA 3A,0E,CO,CD,0B,C3, CD, 59,C0,3€,3A,CD,D3,C0, 34, 0F: 
420 DATA C@,CD,0B,C3,C0,59, C0, 3€, 34,CD,03, C0, 2, 16,C8, CD: 
430 


440 DATA 0B,C2,CD,59,C0,3A,FC,61,FE,08,CA,70,02,3A,FD, OI 
450 DATA 47,3A,0E,C0,B8,20,19,3A,FE,81,47,3A,0F,CO,E8, 20 
460 DATA 0F,3A,FF,81,47,3A,10,C0,B8,20,05,3E 01 ,32,00,02 
470 DATA 34,58,06,FE,00,28,13,3A,0F,C0,FE 00, 20,0, 34,18 
480 DATA CO,FE,05,30,05,3€,07,CD,22,C0,3A,00,02,FE 01,28 
490 DATA 05,3€,07,C0,22,C0,0E,06,1E,FF,CD,05,09, CA 01,02 
500 DATA A7,FE, 1B,CA,3E,06,E6,0F,FE,42,CA,28,06,FE,41,CA 
510 DATA 18,06,FE,54,CA,92,04,FE,43,CA,BF,02,C3,01,02,AF 
520 DATA 32,09,02,32,56,06,01,00,19,21,B8,07,CD,56,C@,2E 
520 DATA 34,32, 50,86,01,82,17,21,05,06,C0,56,C0,81,20, 17 
540 

550 DATA 21,65,06,C0,56,C0,81,20,17,21,40,86,CD,56,C4, IE 
560 DATA FF,0E,06,C0,05,00,FE, 1B,CA,7F,04,FE,0D,CA, 58,04 
570 DATA EG,0F,FE,4F,CA,D0,93,FE,53,CA,30,04,FE,4D,CA 71 
580 DATA 03,FE,48,CA,99,03,FE,50,C2,E6,02,3A,52,06, 20, 22 
590 DATA 52,06,FE,2F,C2,66,02,2E,39,32,52,06,3A,51,86, 30 
600 DATA 32,51,06,FE,2F,C2,E6,02,2€,35,32,51,06,3A,4F ,06 
610 DATA 30,32,4F,06,FE,2F,C2,E6,02,3E,29,32,4F,06,3A,4E 
620 DATA 06,20,32,4E,06,FE,2F,C2,E6,02,2€,32,32,4E,06,3E 
630 DATA 33,32,4F,06,2€,35,32,51,06,3€,39,32,52,06,C3,E6 
640 DATA 02,2A,52,06,3C,32,52,06,FE,3A,C2,E6,02,3E, 38,32 
650 ‘ 

660 DATA 52,06,34,51,06,3C,32,51,06,FE,26,C2,E6,02, 2€, 20 
670 DATA 32,51,06,32,52,06,C3,E6,02,3A,4F,06,3C,32,4F,06 
680 DATA FE,34,DA,E6,02,3A,4E,06,FE,32,28,19,3A,4F,06,FE 
690 DATA 3A,C2,E6,02,2E,30,32,4F,06,3A,4E ,06,3C,32,4E, 06 


lecteur 


7" ENT) 


"HEND' (LE 


(A9) 
(97) 
(87) 
(A0) 
(93) 
(AU) 
(82) 
(9R) 
(95) 
(AZ) 


(DR) 
(D1) 
(9x) 
(8K) 
(86) 
(72) 
(CD) 
(AJ) 
(03) 
(08) 


(BP) 
(AA) 
(80) 
(9H) 
(9c) 
CAF) 
(ES) 
(88) 
(7H) 
(75) 


(8Y) 
(CT) 
(DY) 
(AF) 
(9H) 
(95) 
(AU) 
(A7) 
(84) 
(8U) 


(8P) 
(8A) 
(Ce) 
(9M) 


100 DATA FE,33,02,66,02,2€,30,32,4E,06,32,4F,06,C3,E6,02:' 
110 DATA 3A,52,06,30,32,52,06,FE,3A,C2,E6,02,3€, 38, 32,52:' 
720 DATA 06,3A,51,86,3C,32,51,06,FE,36,C2,E6,02,3E, 30,32: ' 
130 DATA S1,06,24,4F,06,3C,32,4F,06,FE,34,DA,E6,02,3A,4E:' 
740 DATA 66,FE,32, CA, 1F,04,3A,4F,06,FE,3,C2,E6,02, 3,30: ' 
150 DATA 32,4F,06,3A,4E,06,3C,32,4E,06,FE,33,C2,E6,02,3€:' 
760 * 

170 DATA 20,32,4E,06,32,4F,06,32,51,06,32,52,06,C3,E6,02:" 
780 DATA 34,55,06,3C,32,55,06,FE, 34, C2,E6,02,3€,30,32,55:' 
190 DATA 06,34,54,86,3C,32,54,06,FE,36,C2,E6,02,3E,30,32:' 
800 DATA 54,06,32,55,06,C3,E6,02,3E,01,32,FC,01,3€,24,32:' 
816 DATA 56,06,11,4E,06,C0,42,C3,32,FD,01,11,51,06,C0,42:" 
820 DATA C3,32,FE,81,11,54,06,C0,42,C3,32,FF,81,18,04,AF:' 
820 DATA 32,FC,01,CD,D3,C8,01,80,19,21,87,07,CD,56,C0,C3:' 
840 DATA 75,01,81,00,19,21,61,87,C0,56,C8,01,28,15,21,59:° 
850 DATA 06,CD,56,C0,3€,3,32,48,66,81,20,15,21,45,06,CD:" 
860 DATA 56,00, 1E,FF,6E,06,CD,05,00,FE, 1B,CA,05,06,FE,00:' 
870 ‘ 

880 DATA CA,E8,05,E6,DF,FE,4F,CA,24,05,FE,4D,CA,89,05,FE:' 
890 DATA 48,CA,B1,85,FE,58,20,01,34,44,06,30,32, 4A,06,FE:' 
906 DATA 2F,20,06,3€,39,32, 44,06, 34,49,06,30,32,49,06,FE:' 
916 DATA 2F,20,86,3€,35,32,49,06,34,47,06,30,32,47,06,FE:' 
920 DATA 2F,20,A6,3€,39,32,47,06,2A,46,86,30,32,46,06,FE:' 
930 DATA 2F,28,96,3€,32,32,46,06,3€,33,32,47,06,3E,35,32:' 
940 DATA 49,06,3E,39,32,4A,06,C3,A9,04,34,44,06,3C,32,44:' 
950 DATA @6,FE,34,C2,A9,04,3E,30,32,4A,06,3A,49,06,3C,32:° 
960 DATA 49,06,FE,36,02,A9,04,3E,30,22,49,06,3A,47,06,3C:" 
970 DATA 32,47,06,FE,34,DA,49,04,3A,46,06,FE, 32,28, 19,341" 
380 

990 DATA 47,06,FE,3A,C2,A9,04,2E,30,32,47,06,3A,46,06,3C:" 
1008 DATA FE,33,32,46,06,C2,A9,04,3E,30,32,46,06,32, 47,06: 
1élé DATA 32,49,06,32,4A,06,C3,A9,84,3A,48,06,3C, 32, 4A,06: 
1826 DATA FE,3A,C2,A9,04,3E,38,32, 4A,06,38,49,06,3C, 32,49: 
1830 DATA 06,FE,36,C2,49,04,3E,30,32,49,06,22, 44,06, C3, A9: 
1648 DATA 04,34,47,06,3C,32,47,06,FE,34,DA,A9,04,3A,46,06: 
1658 DATA FE,32,28,19,34,47,06,FE, 34 C2,A9,04,3E,30, 32,47: 
168 DATA 06,38,46,06,3C,32,46,06,FE,33,C2,A9,04,3E,30,32: 
1878 DATA 47,06,32,46,06,C3,A9,04,11,46,06,2E, 24,22, 48,06: 
1888 DATA 32,48,06,C0,42,03,32,0€,C0,11,49,86,CD,42,C3,32: 
1890 ‘ 

1180 DATA 0F,C0,CD,11,C0,AF,3 
1110 DATA 07,07,C0,56,C0,C3,0 
1128 DATA AF,22,FC,O1,AF,32, 
1138 DATA 02, 20,81 ,AF,22,58, 
1148 DATA CO,CD,5B, C2,C9,02, 
1156 DATA 34,30,30, 34,30, 30 
l 
8 


,01,68,19,21: 
,FE,02,20 01: 
,58,06,3C,FE: 


! 
1 


6,C0,03,C0 Ù 
A,FC,81,3C ‘ 
3,75,01,2A ‘ 
2 ” c3,CB,01,CD,A5:' 
6,30,00,24,01,30,30:" 
@,20,20,20,20,20:' 
0,20 ,20,20,20,20:' 
1,72,60,20.63,6C:° 
d,4E ,6F,6E,6F,20:' 
2,49,74,27,73,20:' 


1 


D ON © CG © © 


1168 DATA 29,20,20,00,24,0 
1176 DATA 20,00,24,02,54,68, 
1186 DATA 6F,63,68,20,20 14, 
1196 DATA 20,56,65,72,20,31, 
1208 
1210 DATA 61,6€,20,41,72,63,20,65,6E, 20,6 
1220 DATA 6C,75,62,20,70.72,6F ,64,75,63,7 
1230 DATA 2E,00,24,02,54,69,60,65,20,72,7 
1240 DATA 28,34,29,00,24,01,41,60,61,72,6 
6 
2 


M nn MN D — 1) 


OH OO D QG D © © = 
— DD S = D Nr) FD © 
SAONE IIS 
Dmromw wwe se 


; £ 
0,28, 
1,80, 
8,38 
,31,60,24, 


9,65,6C,20,63:' 
9,6F,6E. 2E,2E:° 
E,6E,69,6E,67:' 
973,65 74.201" 
1250 DATA 66,6F,72,34,20,08,24,81,41,6C,61,72,60,20,6F,66:" 
1260 DATA 66,20,28, 20,20, 20,20, 20, 20,20, 20, 20,20 ,2 Ù 
1276 DATA 20,20,28,20,20,09,24,00,41,3A,41 40,41 Ù 
1288 DATA 28,4F,4E,2F,4F,46,46,20,20,20,42,38,42, Ù 
1298 DATA 4F 4€ .2F,4F 46.46.20, 20.20 43,3A 52.45. Ù 
1300 DATA 47,45, 20.44,45 20 40,27 41 AC 41 52.40. ‘ 
1318 
1320 DATA 20,54,3A,40,49,53,45,20,41,20,4C,27,48,45,85,52; 
1330 DATA 45,20,28,20,45,58,49,54,3A,51,55,49,54,54,45,52: 
1348 DATA 24,00,55,74,69,6C,69,73,65,74,20,60,65,73,20,74: 
1250 DATA 6F,75,63,68,65,73,20,27,48,27,20,68,74,20,27 40: 
1360 DATA 27,20,70,6F,75,72,20,66,61,69,72,65,28,64,7B,66: 
1370 DATA 69,6C,65,72,20,6C,27,68,65,75,72,65,28,20,20,27:' 
1380 DATA 45,4E,54,45,52,27,20,70,6F,75,72,28,76,61,6C,69:" 
1390 DATA 64,65,72,20,20,20,20,20,20,20,24,00,55,74,69,6C:' 
1400 DATA 69,72,65,72,20,6C,65.73,20,74,6F,15,63,68,65,73:" 


°,20,20: 
,52,40,45: 
49,50,20: 
47,404: 
45,20 ,20: 


3, 
4 
5, 
D, 
1 
() 
L 


6 
6 
6 
2 
1 
2 
4 
13 


NIVEAU MOYEN 






(9L) 
(8x) 
(8K) 
(AM) 
(BC) 
(A9) 


(70) 
(90) 
(8x) 
(82) 
(8x) 
(9V) 
(9x) 
(6K) 
(8L) 
(C9) 


(F0) 
(AX) 
(9L) 
(95) 
(95) 
(75) 
(98) 
(9N) 
(98) 
(A7) 


(SK) 
(94) 
CSN) 
(AV) 
(AK) 
(AJ) 
(88) 
(A9) 
(8R) 
(AD) 


(BA) 
(AJ) 
(EF) 
(AG) 
(8H) 
(52) 
(41) 
(80) 
(AN) 
(7E) 


(80) 
CAU) 
(A6) 
(7U) 
(90) 
(57) 
(78) 
(94) 
(9x) 
(82) 


(81) 
(7X) 
(98) 
(BW) 
(8u) 
(BR) 
(90) 
(78) 
(97) 


DR PS | PROGRAMMATION BASIC - L'ECHO DU PCW N° 20 


[NA = URL 0) 4 





1416 DATA 20,27,48,27,2C,20,27,40,27,28,65,74,20,27,53,21:' 
1428 

1430 DATA 20,70,6F,75,72,20,66,61,69,72,65,28,64,7B,66,69:' 
1440 DATA 6C,65,72,20,6C,27,68,65,75,72,65,20,20,20,27,45:' 
1450 DATA 4E,54,45,52,20,70,6F,75,72,20,76,61,6C,69,64,65:' 
1460 DATA 72,20,20,20, 24,01 ,42,69,70,20,6F,6E,20,80,24,01:' 
1474 DATA 42,69,70,20,6F,66,66,00,24,00,00,41,43,4C,4F,43:" 
1480 DATA 4B,20,20,20,43,4F,40,3€,20,32,29,C7,11,50,08,21:° 
1496 DATA 28,07,01,0C,08,ED,B0,11,5C,00,21,28,C7,01,6C,60:' 
1500 DATA ED,B0,AF,32,68,00,32,7C,00,11,5C,08,0€,16,CD,85:" 
1510 DATA 00,21 ,80,C0,C0,82,C7,ED, 48,29, C7,C0,91,C7,CD,%:' 
1520 DATA C7,A7,C2,AD,C7,6B,AF,89,C2,68,C7,B8,C2,68,C7,C3:' 
1530 

1840 DATA AD,C7,E5,05,C5,11,80,00,0€, IA, CD 85,88 ,C1,D1,El: 
1850 DATA C9,D5,C5,11,80,00,81,89,08,ED,B0,C1,D1,C9,ES,DS:" 
1860 DATA CS,11,5C,00,0€,15,C0,85,80,C1,D1,E1,C9,11,5C,08: 
1570 DATA @E,10,CD,05,00,C9,0€,69,11,8C,C8,CD,85,80,32, 19: 
1580 DATA CO,C9,01,81,09,00,00,0€,68,11,0C,Ca,CD,85,08,C9:' 
1596 DATA 3E,94,CD,22,C0,19,FB,C9,FS,CS,ES,0S,D0,ES,5F,@Ë:" 
1600 DATA 6,CD,05,00,D0,EI ,DI,E1,C1,F1,C9,E0,43,54,C8,FS:" 
1616 DATA CD,92,C0,3€,59,C0,22,C0,34,55,C0,C6,28,CD, 22, C0:" 
1620 DATA 34,54,C0,C6,28,C0,22,C0,F1,C9,00,00,CD,35,C@,7E:' 
1630 DATA FE,24,08,23,C0,03,C0,18,F6,C0,92,C0,3E,48,CD,22:' 
1640 

1650 DATA C@,CD,92,C0,3E,45,C0,22,C0,C9,FS,3€,08,CD,D3,C0:" 
1660 DATA F1,C9,FS,C0,92,C0,3E,6A,C0,22,C0,F1,C9,FS,CD,92:' 
1670 DATA C,3E,68,C0,22,C0,F1,C9,F5,3€,1E,CD,22,C8,F1,C9:" 
1680 DATA FS,C0,92,C8,3E,66,C0,22,C0,F1,C9,F5,CD,92,C8,3E:" 
1698 DATA 65,CD,22,C0,F1,C9,F5,C0,92,C0,3€,41,18,16,FS,CD:" 
1700 DATA 92,C0,3E,42,18,€,FS,CD,92,C0,3E,44,18,06,FS, CD: 
1710 DATA 92,C0,3E,43,C0,22,C8,F1,C9,E5,D5,C5,FS,FE,03,20:" 
1720 DATA 07,32,E1,C0,C3,49,C1,08,FE,08,20,0C, CD, 22,C0,2E:" 
1736 DATA 20,C0,22,C0,3€,08,18,09,FE, 00, 20,85, CD,22,C0,3€:" 
1746 DATA @A,FE,20,DA,46,C1,4F,2A,E1,CO,A7,79,CA,46,C1,59:° 
1758 ‘ 

1760 DATA 24,01,00,81,57,80,99,22,18,C1,81,4€,C1,CD,08,08: 
1776 DATA E9,00,3A,E1,C8,FE 81,28, 1C,CD,7C,C0,CD,B0,C, 3€: 
1780 DATA C3,CD,22,C0,3€,C2,C0,22,C0,C0,87,C@,3€ C1 ,CD,22: 
1790 DATA CO,3E,C0,18,07,3E,C3,C0,22,C0,2€,C2,C0,22,C0,FI: 
1808 DATA C1,01,E1,C9,00,E5,26,00,6B, 29,29, 29,01,00,88,09: 
1816 DATA 11,10,BE,06,08,C5,05,AF,0€,03,CB,0E, 30,81 ,E1 CB: 
1820 DATA 61,CB,01,30,F5,12,78,C6,08,5F,30,01,14,AF,6E,03:° 
1820 DATA CB,0E,30,81,B1,CB,81,CB,01,38,F5,12,01,13,23,C1:" 
1849 DATA 10,03,2A,E1,C0,FE,01,28,20,21,17,BE,11,87,BE,@E:" 
1850 DATA 02,05,E5,06,04,7E,12,1B,12,18,2B,10,F8,01,05,66:' 
1868 ‘ 

1870 DATA 04,7E,12,18,12,18,28,18,F8,E1,11,88,00,19,D1, 78: 
1880 DATA C6,08,5F,30,01,14,80,28,08,00,E1,C9,05,1A,FE,24:' 
1690 DATA 28,12,06,30,38,08,FE,04,30,04,13,18,F0,00,3€,01:° 
1980 DATA 32,07,C1,01,C9,D1,AF,32,07,C1,21,80,00,1A,FE,24:' 
1910 DATA C8,06,30,13,44,40,29,29,09, 29,06,00,4F,89,18,E0:" 
1928 DATA DD,21,F6,C6,11,E8,83,C0,1E,C2,11,64,08,C0,1E,C2:' 
1930 DATA 11,04,00,CD,1E,C2,70,C6,30,00,77,80,00,36,01,24: 
1940 DATA 21,F6,C6,09,87,06,FF,E0,52,04,38,F8,19,78,C6,30:" 
1958 DATA DD,77,00,00,23,09,C0,92,C0,2E,58,C0,22,C0,2A,55: 
1960 DATA C0,C6,20,CD,22,C8,3A,54,C@,C6,28,CD,22,C0,3A,5A:' 
1970 

1988 DATA C2,C6,20,CD,22,C0,38,59,C2,C6,28,C0,22,C0,C9,08:' 
1998 DATA 00,AF,32,55,C0,32,54,C8,3€,1F,32,5A,C2,2E, SA, 32: ' 
2000 DATA 59,C2,C0,30,C2,09,3€,04,32,55,C0,AF,32,54,C0,3E:° 
2010 DATA 0€ ,18,E7,FS,AF,32,14,07,F1,32,13,C7,E6,81,CB,3F:" 
2020 DATA 38,08,3A, 14,C7,C6,01,32,14,07,34,13,C7,E6,02,CB:" 
203 DATA 3F,CB,3F,30,08,3A,14,07,C6,02,32,14,C7,34,13,C7:° 
204 DATA E6,04,CB,3F,CB,3F,CB,3F,20,08,34,14,C7,C6,04,32:' 
2058 DATA 14,07,3A,13,07,E6,08,CB,3F,CB,3F,CB,3F,CB,3F,20:' 
2068 DATA 08,34, 14,C7,06,08,32, 14,07,34,13,C7,E6,10,CB,3F:" 
2070 DATA CB,3F,CB,3F,CB,2F,CB,2F,20,08,3A,14,C7,C6,10,32:° 
2080 * 

2096 DATA 14,C7,34,13,C7,E6,20,CB,3F,CB,3F,CB,2F,CB,3F,CB:' 
2100 DATA 2F,CR,3F,20,08,2A,14,C7,C6,20,32,14,C7,3A, 14,07: 
2118 DATA C9,00,21,FE,C6,32,14,07,CB,3F,CB,3F,CB,3F,CB,3F:° 
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CET EI 


2128 DATA E6,0F,C6,30,FE,2A,FA,25,C3,C6,07,D0, 77,00 ,3A,14:° 
2138 DATA C7,E6,0F,C6,30,FE,3A,FA,36,C3,C6,07,DD,77,81,3E:" 
2148 DATA 24,00,77,02,21,FE,C6,C9, 1A,CB, 27, CB, 27 ,CB,27,CB:' 
2158 DATA 27,47,13, 1A,06,30,B0,C9,2A,81,00,81,57,06,09,22:' 
2168 DATA 60,C3,01,65,C3,C0,00,00,E9,80,C9,D9,6E,60,09,D0:' 
2170 DATA 21,10,C7,00,4E,66,00,46,81,00,6E,02,00,66,03,22:' 
2188 DATA ED,C4,00,5E,84,16,00,21,FF,00,A7,ED,52,22,EF,C4:' 
2198 ‘ 

2208 DATA 11,06,00,00,19,C5,21,FF,00,00,5E,02, 16,00 ,A7,ED:° 
2218 DATA 52,E0,SB,EF,C4,19,22,F3,C4,ES,21,FF,00,DD,SE,06:" 
2220 DATA 16,00 ,A7,E0,52,ED,5B,EF,C4,19,EB,E1 ,A7,ED,52,66:' 
2238 DATA FF,20,09,06,01,EB,21,06,00,A7,E0,52,22,F7,C4,00:' 
2248 DATA 6E,00,00,66,81,E0,SB,ED,C4,19,22,F1,C4,ES,CS,EB:" 
2250 DATA 2A,F3,C4,09,CB,41,09,28,08,CD,C8,C4,2F 46,77, 18:' 
2268 DATA 83,C0,C2,C4,C1,2A,ED,C4,00,5E,04,00,56,05,19,EB:" 
2276 DATA El,A7,ED,52,0€,FF,90,09,6€,01,EB,21,00,00,A7,ED:" 
2288 DATA 52,22,F5,C4,E0,43,F9,C4,E0,5B,F7,C4,7C,BS,82,83:" 
2290 DATA CA,BS,C4,E0, 52,24 ,F5,C4,38,09,09, 21 ,D8,02,09,06:' 
2200 ‘ 

2318 DATA 00,18,08,6€,00,09,21,00,82,09,E,D9,22,81,C5,09:" 
2328 DATA ED,43,FB,C4,E0,53,FD,C4,22,FF,C4,ES C1 ,CB,3C,CB:° 
2330 DATA 10,C5,E0,58,F0,C4,19,EB, 24,01, C5, 7,ED,52,38,00:" 
2340 DATA 62,68,E0,48,FF,C4,A7,ED,42,38,10,18,08,EB,ED,58:' 
2350 DATA FF,C4,A7,ED,52,E0,58,F9,C4,18,05,EB,E0,SB,FB,C4:' 
2368 DATA ES,2A,F1,C4,48,86,08,CB,79,28,61,85,09,22,F1,C4:" 
2370 DATA 24,F3,C4,44,06,60,CB,79,28,01,05,09,22,F3,C4,ED:" 
2380 DATA 5B,F1,C4,09,CB,41,09,28,08,CD,C8,C4,2F,A6,77,18:" 
2390 DATA 03,CD,C2,C4,E1,C1,08,78,81,28,96,81,08,00 00,09: ' 
2409 DATA C1,88,78,81,C2,8F,C3,C9,CD, C8, C4, B6,77,C9,26,B6:" 
2418 ‘ 

2420 DATA CB,25,30,01,24,46,23,66,78,E6,F8,6F,29,78,E6,07:' 
2430 DATA BS,6F,78,E6,07,47,78,E6,F8,5F,19,04,3€ 61 ,0F, 10" 
2449 DATA FD,4F,C9,00,00 00,90 ,00,80,08,00,09,08,00,90,00:' 
2450 DATA 00 ,00,08 08 ,00,00 ,0,08,00,C5,00,ES,86,08,0D,21:' 
2460 DATA 3B,C5,3A,30,CS,CB,3F,CB,F,CB,3F,00,AE,04,CB,1F:' 
2470 DATA DD,CB,60,16,00,C8,01,16,00,CB,82,16,D0,CB,83,16:' 
2488 DATA DD,CB,64,16,18,DC,00,7E,60,DD,E1,C1,32, 3A,C5,C9:' 
2498 DATA 00,00 ,00,00,08,80,08 ,DD,ES,ES,DS,C5,FS, 21,80, C@:' 
2508 DATA 01,00 ,40,ED,5F,5F,78,86,5F,23,08,78,B1,20,F7,06:' 
2516 DATA 05,00,21,38,C5,E0,5F,83,CB,18,00,77,80,D0,23,19:' 
2528 ‘ 

2530 DATA F4,F1,C1,D1,E1,D0,E1,C9,C0,70,C2,CD,63,C0,CD,5B:" 
2549 DATA C2,01,96,02,E0,43,08,C7,C0,03,C5,FE,5F,30,F2,FE:" 
2559 DATA 04,38,EE,26,00,6F,22,15,C7,C0,83,C5,FE,5F,30,F9:' 
2560 DATA FE,04,38,F5,26,00,6F,22,19,C7,C0,03,C5,FE,SF,30:° 
2579 DATA F9,FE,0A,38,F5,26,08,6F,22,17,07,C0,03,C5,FE,SF:" 
2588 DATA 30,F9,FE,0A,38,F5,26,00:' (CZ) 

2594 DATA 6F,22,18,07,3€,04,32,F6,C6,32,F7,C6,3E FC, 32,F8:' 
2608 DATA C6,32,F9,C6,09,21,81,08,22, 1D,C7,21,84,00,22, 1F:" 
2810 DATA C7,21,68,08,22,21,C7,2A,15,C7,3A,F6,C6,FE, FC, 28:' 
2620 DATA 06,5F,16,08,19,18,86,11,84,09,A7,ED,52,22,15,C7:" 
2638 DATA 22,23,07,2A,19,07,8A,F8,C6,FE,FC,28,06,5F,16,00:" 
2640 * 

2650 DATA 19,18,06,11,04,80,A7,ED,52,22,19,C7,22,25,C7,24: 

2664 DATA 17,07,16,00,2A,F7,C6,FE,FC,28,04,5F,19,18,86,11:' 
2670 DATA 04,00 ,A7,ED,52,22,17,07,22,27,07, 28, 1B,C7,3A,F9:' 
2680 DATA C6,FE,FC,28,66,16,00,8F,19,18,86,11,84,00 A7 ,ED:' 
2690 DATA 52,22,18,07,22,29,C7,24,15,C7,7C,FE,02,28,0C,70:' 
2700 DATA FE,AA,38,07,8E,FC,32,F6,C6,18,12,24,15,C7,7C,FE:' 
2710 DATA 09,20,0A,70,FE,14,30,05,3€,04,32,F6,C6,2A,19,C7:° 
2720 DATA 7C,FE,00,20,05,70,FE,64,38,07,3€,FC,32,F8,C6,18:' 
2738 DATA 12,2A,19,07,7C,FE,00,20,04,70,FE, 14,30,85,3€,04:' 
2749 DATA 22,F8,C6,24,17,07,7C,FE,02,38,0C,70,FE,AA,38,07:' 
2758 ‘ 

2760 DATA 3E,FC,32,F7,C6,18,12,24,17,C7,7C,FE,00,20 08, 70:' 
2719 DATA FE,14,30,05,3€,04,32,F7,C6,2A,1B,C7,7C,FE, 00, 20:' 
2780 DATA 05,70,FE,64,38,07,3E,FC,32,F9,C6, 18,12,2A,18,C7:" 
2790 DATA 7C,FE,09,20,0A,70,FE, 14,30,05,3E,04,22,F9,C6,CD:' 
2806 DATA 52,C3,C9:' (R3) 

2816 ‘That's all folk! 
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e 
52 PEN CLT, PSS 
SET HS 2e. PT S des jeux de caractères adaptés à la langue de différents 
7) CE PE RRÉREC à C pays grâce à la commande LANGUAGE. L'avantage du 
\ jeu de caractères français est qu'il permet d'utiliser les 
caractères accentués mais il fait perdre les accolades et 


les crochets, caractères pourtant nécessaires en 
PASCAL. 


FÈ ROUES ES 
ASS ER RE 
LOGS 


2) Symboles spéciaux. 


Ils sont regroupés dans la figure 1. Les pre- 
miers sont des opérateurs mathématiques ou de compa- 
M raison. 

":=" est le symbole d'affectation. Par son intermédiaire, 
on donne des valeurs aux variables. ”." indique la fin de 
programme, "," sépare les éléments d'une liste, “;" 
= sépare deux instructions. Le signe "=" est utilisé dans 
A VENDRE les déclarations de constante et de type, et sépare 
s s SA à l'identificateur de sa constante ou de son type. Le signe 
Ford masse É Jo Pie ee ":", utilisé dans les déclarations de darisblés, sépare 
FRS ENPES 1HES l'identificateur de sa variable. 
Les apostrophes encadrent les chaînes de caractères, 
les parenthèses encadrent une liste de paramètres 
V à LE S ELE MENT S D E B A S E affectés aux procédures ou sont utilisées dans des 
expressions. 


EN PASÉAL, | eme 
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C) PRESENTATION D'UN PROGRAMME | pc) rrPiapent les rnb qui servent à indicer 


D D ST valeurs. Les "(* *)" remplacent les accolades qui enca- 


PASCAL évolue dans un environnement drent des commentaires. | 

il t ître. C'est l'obiet des La flèche vers le haut est utilisée par les variables dyna- 
qui nous f. CHECORURNE, 2] miques et le signe ".." est utilisé pour définir un interval- 
lignes qui suivent, conclues par un exemple le. 
de la convivialité que l'on peut obtenir grâce Entin, l'espace sépare deux mots, une suite d'espaces 
à notre langage préféré. par le compilateur comme un seul 





A) CARACTERES ET SY 3) Identificateurs et mots-clés. 
1) Jeu de caractères de PASCAL. Les identificateurs sont des noms utilisés pour 
représenter des constantes, des types de données, des 


Il comprend tous les caractères ASCII allant du variables, des procédures et fonctions. Nous l'avons vu, 
caractère espace (code 32) au caractère souligné (code ils sont formés d'une suite de lettres, de chiffres et du 
95). TURBO PASCAL accepte aussi les minuscules et signe souligné et commencent obligatoirement par une 
les lettres accentuées (jusqu'au code 127). lettre. 


Vous n'ignorez pas que CP/M permet de choisir 


EE | INITIATION AU PASCAL + L'ECHO DU PCW N° 20 
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Ils peuvent être de longueur quelconque dans la limite 
d'une ligne de l'éditeur, c'est-à-dire 127 caractères. 


Cependant, les identificateurs ne doivent conte- 
nir ni lettres accentuées, ni symboles spéciaux, ni mots- 
clés. Les mots-clés sont des mots que PASCAL réserve 
pour son propre usage. Les principaux sont regroupés 
dans la figure 2. 

Le vocabulaire d'origine de PASCAL est donc composé 
de symboles spéciaux, de mots-clés réservés, mais 
aussi d'identificateurs prédéfinis. Ces derniers sont des 
constantes, telles que PI, ou encore des procédures et 
des fonctions qui peuvent être redéfinies par le program- 
meur. Ainsi WRITELN, qui est l'identificateur de la pro- 
cédure standard d'affichage, peut être réutilisé, la procé- 
dure WRITELN n'étant alors plus accessible. 


FIGURE 2 : Mots-clés réservés 


AND  ARRAY BEGIN BOOLEAN BYTE CASE CHAR 


CONST DIV DO  DOWNTO ELSE END FILE 

FOR  FUNCTION GOTO IF IN INTEGER LABEL 
MOD  NIL NOT OF OR PROCEDURE PROGRAM 
REAL RECORD REPEAT SET STRING THEN TO 

TYPE UNTIL VALUE VAR WHILE WITH 


Des exemples ? En voici : 


FICHIER, ACTION À sont des identificateurs valides 
SJOURS, 432NOMBRE sont invalides car le premier caractère est un chiffre. 

GOTO, VAR sont invalides car ce sont des mots clés 
PI.314 est invalide car il cœntient ".", un symbole spécial 


Le compilateur de TURBO PASCAL ne fait pas la diffé- 
rence entre les majuscules et les minuscules, sauf pour 
les chaînes de caractères. Cette particularité permet de 
présenter les identificateurs de façon suggestive en 
combinant les caractères de la manière suivante : 


EmpruntBancaire, Paiement_Par_Chèque, 
MatriceUnité, etc. 





TURBO PASCAL dispose d'origine de six types de don- 
nées : BYTE, INTEGER, REAL, CHAR, STRING, BOO- 
LEAN. 


. Le type BYTE (octet) : une donnée de type BYTE a 
une valeur numérique comprise entre 0 et 255. 

. Le type INTEGER (entier) : une donnée de type INTE- 
GER a une valeur numérique comprise entre -32768 et 
32767. 

. Le type REAL (réel) : une donnée de type REAL peut 
comporter une partie fractionnaire et est représentée, en 
général, avec un facteur d'échelle en puissance de 10 
annoncé par la lettre E. Les valeurs qu'elle peut prendre 
sont comprises entre 1E-38 (1 * 10 exposant -38) et 
1E38 (1 * 10 exposant 38). 

. Le type CHAR (caractère): une donnée de type CHAR 
est un caractère normalement limité aux caractères 
ASCII dont les codes vont de 32 à 127. Cependant 
TURBO PASCAL autorise les codes allant de 0 à 255 
qui peuvent être des codes spécifiques au terminal, des 
caractères ASCII ou encore des caractères additionnels. 
Ils sont décrits et représentés dans le manuel du PCW. 

. Le type STRING (chaîne de caractères): une chaîne de 
caractères est une suite de données de type CHAR. 
Une chaîne peut contenir au maximum 255 caractères. 


. Le type BOOLEAN (logique) : une donnée logique 
peut prendre deux valeurs au choix, soit TRUE (vrai) 
soit FALSE (faux). Les booléens sont très utilisés dans 
les tests de validité et de comparaison. Exemple : 





L'expression "Code=5" est une expression logique. 
Elle vaut TRUE si Code=5, FALSE dans tous les autres 
cas. Si l'expression vaut TRUE, le message ‘Nombre 
correct’ est affiché. Facile, non ? 





Les blancs (espaces), les fins de ligne et les 
commentaires sont des séparateurs qui peuvent appa- 
raître partout entre deux symboles PASCAL. 

Aucun séparateur ne peut se trouver dans un identifica- 
teur, symbole ou nombre. En revanche, un séparateur 
est nécessaire entre 2 identificateurs, mots-clés ou 
nombres qui se suivent. 
De même, chaque instruction doit se terminer par un 
point virgule qui n'est pas nécessaire après BEGIN et 
devant END. 
En dehors de ces quelques limitations, la présentation 
d'un programme est tout-à-fait libre. Autrement dit, que 
le code source soit compact ou très étalé et documenté, 
le code objet aura toujours la même taille. 
Cette mise en page libre permet au programmeur de 
présenter son travail comme bon lui semble, la tendance 
étant à la clarté bien sûr ! 
La figure 3 présente deux versions d'un petit programme 
qui affiche le caractère dont le code ASCII est donné par 
l'utilisateur. Ce code doit être compris entre 32 et 127 
pour être accepté. 
FIGURE 3: Exemples de présentation 

Présentation dense 


PROGRAM CAR_ASCII; VAR CODE:BYTE:BEGIN 
WRITE{('CodeASCII: * }:READLN(CODE):IF CODE>31 AND 
CODE<128 THEN WRITELN( ‘Caractère: * CHR(CODE) JELSE 
WRITELN(: N " de code non ASCIL: } END. 


Présentation aérée 


PROGRAM CAR ASCII; 

VAR 
Code : Byte ; 

BEGIN (* Début du programme *) 
Writel'Code ASCII: ‘); 
ReadLn(Code) 

IF Code>31 AND Code<128 THEN 
WriteLn(Caractère: ", CHR(Code)) 


( Lecture du code frappé au *) 
(* Code compris entre 32 et 127? *) 
(* OU, affichage du caractère *) 


ELSE 
WriteLn('N” de code non ASCIL.') (* NON, message d'erreur *) 
END. ( Fin du programme ‘) 


Les deux versions données ici, bien qu'identiques dans 
leurs résultats, ne sont pas aussi parlantes l'une que 
l'autre. La première, très dense, nécessite une attention 
soutenue pour une bonne compréhension, myopes 
s'abstenir. En revanche, la seconde est présentée d'une 
façon claire et aérée très facile à étudier. 


Evidemment, je ne peux que vous recommander de 
suivre cet exemple. 


INITIATION AU PASCAL °+ L'ECHO DU PCW N°20 SR | 


VOS TRANSACTIONS 


… (télex, bourse...) ? 
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LOCOSCRIPT 2 PAPIER PACE ET IMPRIMANTE 
muuns PV AT 77 


ciel, l'organisation des pages 
sous LOCOSCRIPT 2 est 
ingénieusement conçue, 
répondant ainsi aux ambiguï- 
tés de l'organisation des 
documents par rapport à un 
format de papier. 


LOCOSCRIPT 1 gérait distinctement deux formats et 
laissait à l'utilisateur le soin de les mettre en phase. Le 
premier, format de page, réglait la taille de la page en 
répartissant les lignes entre en-tête, bas de page et 

corps des documents. Le second, format de papier, FORM nl DE PAPIER 

obtenu par le menu option du gestionnaire d'imprimante 

(par <TR>) s'occupait de la taille du document, de l'ip- | 


tervalle entre deux documents qui se suivent ainsi que Effaçons tout et reprenons en scrutant, un à un, les dif- 
la possibilité laissée à l'imprimante de détecter l'absence férents éléments : 
de papier par son “senseur” intégré. 

| : : - Type de papier Continu ou feuille à feuille 
Nous avons eu maintes fois l'occasion de constater l'am- - Format Largeur en colonne, hau- 
pleur des résultats de cette organisation ainsi que les teur en nombre de lignes 
tatonnements désespérés visant à concilier papier, - Position dans l'imprimante Déport exprimé en colonnes 
imprimante et documents. - Continu Papier ou étiquettes 


C'est partant de ce constat que LOCOMOTIVE a procé- PAPIER, PAGE ET IMPRIMANTE 


dé à l'amélioration de la méthode que je vais, le plus 
exhaustivement possible, vous décrire au fil des lignes 


PRINCIPE 


La difficulté majeure dans l'utilisation d'un traitement de textes de 
quelque horizon que ce soit est toujours la même et se résume à cela : 
Faire la distinction entre l'organisation d'un document, le papier mis 
dans l'imprimante et les réglages de cette dernière. Pourtant, il ne faut 
pas pousser très loin la réflexion pour comprendre que chacun de ses 
éléments est dépendant de la volonté de l'utilisateur qui doit, à un 
moment ou à un autre, l'exprimer clairement au programme s'il veut 
en obtenir un résultat convenable. 

Le document saisi s'organise toujours suivant des impératifs qui 
dépendent de son contenu. Lettre type, courrier, rapport ou thèse ont 
une présentation tout à fait personnelle et aucun traitement de texte 
n'est assez doué pour deviner laquelle! 

Le papier quant à lui peut varier de nombreuses manières et condi- 
tionner le fonctionnement de l'imprimante. En feuille à feuille, l'im- 
primante sait qu'une feuille A4 ne peut recevoir plus de 60 lignes, 
déduira donc qu'il faut deux feuilles pour en imprimer 61 et qui si la 
barre guide papier n'a pas été relevée à la fin des 60 premières lignes 
c'est qu'il n'y a plus de papier. 

Tous ces éléments ne pouvant être déduits par le matériel et le pro- 
gramme qui le supervise (en l'occurence LOCOSCRIPT), il faut forcé 
ment passer par ce qu'on appelle le paramétrage que l'art du concep- 
teur du programme doit s'efforcer de rendre le plus simple tout en 
autorisant un maximum de possibilités. Compte tenu de la variété, 
c'est loin d'être toujours évident! 


LES CONFIDENCES DE LOCOSCRIPT + L'ECHO DU PCW N°20 EE 


Le premier, et certainement le meilleur, a consisté à 
regrouper la totalité des paramètres du papier mis dans 
l'imprimante en un seul et unique menu. 


De plus, sachant que chaque type de papier était sou- 
mis à des contraintes différentes, il fallait, non seulement 
augmenter le nombre de possibilités et, logiquement, 
permettre une mémorisation et une identification unitaire 
des formats ainsi créés. En résumé, pour simplifier, tout 
a été compliqué, ce qui résume assez bien le drame 
dans lequel l'informatique plonge chaque jour des mil- 
liers d'innocents... 


Mais, commençons à débroussailler. 


mnmnmmmnmmnsnnnssnnnssnsnsmmemnennenensnmennnnnenmemennenememennnnnnemnmenennnmemnnnnq 
cmnnmnsnnsmmmmennennemmmnsnenmammmmmnnansnmnmmnmsemmammnmmmsmsmemmsmemsmemmsssû 


F 
L 





TOUS NIVEAUX [Nelo1eR1e;11 2x 





Regardons-les en détail : 


Type de papier : Ce point est important. Le papier 
continu permet l'impression sans intervalle entre des 
feuilles reliées entre elles. Seule exception pour la der- 
nière du paquet qu'aucune ne suit. Là, intervient le "sen- 
seur" de détection d'absence de papier. Par contre, le 
mode feuille à feuille sous-entend que chaque page 
imprimée doit être remplacée manuellement par l'utilisa- 
teur qui, en repositionnant une nouvelle feuille, actionne 
la barre de guidage pour le matérialiser. L'imprimante 
déduit alors qu'une nouvelle feuille est présente et qu'el- 
le peut reprendre l'impression de la page suivante. 


Format : Information prépondérante dans la gestion de 
l'imprimante. Nous ne devons jamais confondre format 
du papier (élément physique) et format utile qui reste à 
l'appréciation de l'utilisateur. 


Les unités utilisées pour l'indication de format sont stan- 
dardisées pour simplifier le dialogue avec le programme 
et sont indépendantes de l'organisation des documents. 
Pour résumer, nous dirons que la taille d'une feuille s'ex- 
prime en nombre de lignes sur la base de 6 lignes par 
pouce même si l'utilisateur décide qu'il doublera le 
nombre de lignes en divisant l'interligne de moitié. 
Même commentaire pour la largeur qui s'exprime en 
colonnes (1 colonne = 1 caractère en ELITE soit 
corps 10 ou 10 caractères au pouce). 





Prenons un exemple : Une feuille A4 mesure 29.7 cm 
de haut. Si l'on divise par 2.54 cm qui est la taille d'un 
pouce, nous obtenons 11.69 pouces à 6 lignes par 
pouce nous obtenons 70,15 lignes soit au mieux : 70 
lignes. 


Position dans l'imprimante (déport) : 
Exclusivement réglable dans le cas du papier continu, le 
réglage du déport positionne la tête d'impression par 
rapport au début du papier. Au départ, la position est 
fixée à 0 et le chariot supportant la tête d'impression est 
à l'extrême gauche. L'unité de réglage du déport reste la 
colonne comme pour toute valeur relative à une position 
horizontale. 


Papier continu : Si le principe des feuilles rattachées 
les unes aux autres est clair, deux types de document 
se distinguent toutefois en influant sur le paramétrage. 
Ainsi, le papier listing peut être imprimé sur toute sa sur- 
face alors que ce n'est pas le cas des étiquettes qui, 
séparées par des espaces inutilisables, font intervenir 
une notion d'intervalle qui pourra être réglé par des 
marges inférieures ou supérieures. 





LOCOSCRIPT ? ET PARAMETRAGE 


A la lumière de ce qui précède, nous comprenons que la 
variété des supports entraîne la prise en compte d'une 
masse d'informations propices à une perte de temps 
non négligeable pour l'obtention d'un résultat sérieux. 
L'effort a dont été porté sur la rationalisation du procédé 
et nous allons voir par la pratique que cet objectif a été 
atteint et nous en tirerons parti si les bases sont parfai- 
tement comprises. Pour cela, rien ne vaut la pratique. 


Configuration: 


Une fois lancé, LOCOSCRIPT 2 affiche un “disc-mana- 
ger" servant de point de départ à toute opération. La 
touche de fonction <F6>, correspondant au message 
"Config." pour configuration, nous donne accès à un 
menu permettant différents réglages liés à l'imprimante 
et à ses variantes. Nous laisserons de côté toutes les 
options n'ayant pas un rapport direct avec notre sujet 
pour ne nous occuper que de ce qui concerne le papier 
soit : 

Nouveau Papier 

Type papier 


oupel 
Soupe? k 


dre 13 doc. 


doc. tenp. di à — doc, : M 


figure 2 


Nouveau Papier : 


Laissant le curseur sur le message "Nouveau papier”, 
nous pressons <ENTER> pour accéder à ia définition d'un 
nouveau format. Cette action amène l'affichage d'un for- 
mat déjà existant servant de base à une définition. Il est 
important de savoir que le format de papier se person- 
nalise par l'entrée en clair d'un nom qui servira à l'identi- 
fier. Ce nom n'a aucune influence sur les paramètres 
qu'il illustre mais permettra simplement de l'identifier et 
c'est pourquoi mieux vaut être clair en choisissant des 
noms du type : "Liasse 12" ou "FEUILLE A4", etc. 


figure 3 





Le nom choisi, il convient d'entrer les valeurs adéquates 
suivant la forme du papier et l'usage qui va en être fait. 
Pour vous y aider, le petit tableau de la figure 4 récapitu- 
le les paramètres les plus adaptés. 
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figure 4 
MARGE SUP  MARGEINF HAUTEUR 
FEUILLE A FEUILLE A4 6 4 70 
A5 6 4 49 
CONTINU (LISTING) ns 0 0 66 
12' 0 0 72 
CONTINU (ETIQUETTE) 4 0 2 12 
89/36 0 2 8 
Toutes les valeurs sont en nombre de lignes 


Comme nous l'avons vu plus haut, le papier listing ne 
nécessite pas de marge ni supérieure, ni inférieure afin 
qu'aucune ligne ne soit sautée d'une feuille à l'autre. Par 
contre, les feuilles indépendantes consomment les 6 
premières lignes et les quatre dernières pour, respecti- 
vement, leur introdution et leur extraction de l'impriman- 
te. Quant aux étiquettes, la marge inférieure correspond 
simplement à l'espace qui sépare deux étiquettes. À ce 
sujet, nous aurions pu répartir les deux lignes d'espace 
à raison d'une ligne en haut et une ligne en bas, mais il 
est préférable de n'en mettre aucune en haut de façon à 
être certain du début de l'impression lors du calage des 
étiquettes dans l'imprimante. 

Le corps du document correspond au nombre de lignes 
utilisables sur le support papier une fois que les marges, 
supérieure et inférieure, ont été déterminées. 


Le format terminé, il suffit de déplacer le curseur sur 
"Création type papier" et de valider par <ENTER> pour 
mémoriser le nouveau format. A ce stade, nous pouvons 
passer à un nouveau papier en recommençant la procé- 
dure ou de figer définitivement en le mémorisant dans 
un précieux fichier appelé CONFIG.STD {figure 5) et 
dont vous retrouverez tous les détails dans l'encadré. 


ne fa-Options 


figure 5 


CONFIG.STD le petit nouveau... 


Ce fichier est entièrement géré par LOCOSCRIPT 2 à savoir que 
nous sommes libérés du détail des informations qu'il contient. 
CONFIG.STD a une vocation très importante qu'il faut connaître 
pour en tirer parti. Il garde en mémoire les informations liées à 
l'imprimante à savoir : 

- Type d'imprimante connectée au PCW 

- Paramétrages liés à l'imprimante connectée 

- Les formats de papiers définis par l'utilisateur 

Toute modification de l'un de ses points devra faire l'objet d'une 
écriture dans CONFIG.STD par validation de "écrit 
CONFIG.STD" du menu configuration obtenu par <F6>. 

Dans le cas d'un travail sur plusieurs copies différentes de 
LOCOSCRIPT 2, il faut se méfier du fait que la configuration 
d'une disquette n'est pas forcément identique à ses consoeurs et 
qu'une confusion risque de naître. Pour éviter ce problème, deux 
solutions existent : 

Recopier le dernier CONFIG.STD sur toutes les versions de tra- 
vail ou,noter les différentes configurations dont chaque version a 
fait l'objet. 


FORMAT 


- 
1 Notez bien que cette mémorisation par l'option 
! "Ecrit CONFIG.STD" est indispensable pour 
COS 1 retrouver le format venant d'être défini quand 
6 } LOCOSCRIPT sera relancé lors d'une nouvelle utili- 
1 sation. 
ss 
« ! EDITIONET MODIFICATION D'UN 
72 À 
! 
! 
! 
! 
I 
! 
I 
3 





Limité à 10 formats différents, le menu de configu- 
ration papier permet donc d'éditer les formats déjà 
existants soit : Suppression d'un format ou alors, 
modification d'un paramètre. 

Cette édition est permise par <F6> tout comme la 
création décrite plus haut. A l'affichage du menu de la 
figure 6, nous mettrons le curseur sur "type papier" et 
la validation par <ENTER> affichera les noms des formats 
existants (figure 7). 
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groupe 15 k Eee 
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FICHE ol 
FICHIER 1 
MODELE STD 


figure 7 





En déplaçant le curseur, nous nous mettrons sur le for- 
mat à modifier ou à détruire et nous presserons 
pour l'indiquer au programme. Ensuite, sans sortir du 
menu, nous mettrons le curseur sur l'option souhaitée 
soit : 


"Enlève type papier” pour le faire disparaître 
(figure 8) ou, 


"Nouvelle info papier" pour corriger les informations 
entrées et déjà détaillées plus haut. 


rie ; 
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figure 8 
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figure 9 





Ceci faits, nous retournons à la liste de formats dispo- 
nibles (figure 9) et une pression sur <EXIT> ramène au 
menu de configuration à partir duquel nous pouvons 
sauver la nouvelle version des formats de papier par 
"sauver CONFIG.STD" {figure 6). 


Drive B: 
ie pi i #4k “pris «ak 177) 
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figure 6 


Différents formats de pages ayant été construits et 
étant mémorisés en CONFIG.STD, voyons maintenant 
leur récupération dans les documents. 


Créons un document par <C> et définissons ce qui 
était l'en-tête dans la version 1 et qui est devenue le 
cadre du document dans la version 2. Cette fonction 
s'obtient par <F1> (menu Actions) dans le mode 
"Edition texte" (c'est marqué dans le haut de l'écran). 
(figure 10) 

Une validation par ENTER> nous propose l'édition du 
cadre qui sert de point de départ à toute l'organisation 
du document soit : 


TEXTE EN-TETE 
TEXTE BAS DE PAGE 
PAGINATION 
MARGES ET TABULATIONS PAR DEFAUT 
CARACTERES ET INTERLIGNE PAR DEFAUT 
MISE EN PAGE 


Seule la mise en page nous intéresse aujourd'hui car 


elle donne accès à la récupération d'un format de papier 
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figure 10 


pour l'organisation de la pagination qui permet de répar- 
tir au mieux les lignes d'un document suivant l'en-tête, le 
bas de page et les intervalles qui, déjà fixés en “édition 
papier”, peuvent toujours être modifiés pour s'adapter à 
toute particularité ponctuelle. 


L'appel à cette définition se fait donc par <F5> qui 
affiche un menu duquel nous choisirons l'option "type 
de papier" qui affichera la liste des format de papier dis- 
ponibles (figure 11). Pour affecter au cadre du document 
l'ensemble des caractéristiques du papier choisi dans le 
menu des formats de papier mémorisés en 
CONFIG.STD il faut alors placer le curseur devant le for- 
mat désiré, presser la touche de validation +, mettre le 
curseur sur “Ce type papier" et valider par <ENTER>-. À 
ce moment là, la page du document est en total cohé- 
rence avec le papier sur lequel elle viendra s'imprimer et 
pour le vérifier, allons en "format de page" (figure 12). 
A ce stade, les problèmes sont soldés et la répartition 
de lignes entre en-tête, bas de page et corps de docu- 
ment ne pourra plus troubler l'impression à la dernière 
condition toutefois que l'imprimante soit aussi sur la 
même longueur d'onde. C'est notre dernier point... 


"fin En-tête 1 utilisée à toutes les 
tin Pied de page 1 utilisé à toutes À 
"in En-tête 2 utilisée dans aucune 
tin Pied de page 2 utilisé dans auc 


Nous pouvons maintenant sortir de l'édition du cadre et 
retourner à l'édition du document créé. Pour nous faire 
la main, nous tapons un texte quelconque et nous déci- 
dons de le quitter pour lancer l'impression par 
<EXIT><S><I><ENTER> (figure 13). 


Quelques secondes de remue-ménage et le premier 
menu s'affiche : Qualité courrier ou listing, nombre de 
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{in Pied de page 1 utilisé à toutes 
fin En-tête 2 utilisée dans aucune 
fin Pied de page à utilisé dans aucu 


=fin Pied de page 1 utilisé à toutes 
{in En-tête 2 utilisée dans aucune p 


{tin Pied de page 2 utilisé dans auc 
: Fisd de page 


! Pied de page fi 
l y Pied de page no 


ALAN CRUE 
F Longueur feuille 


figure 12 





figure 13 


copies du document à imprimer et détail des pages à 
imprimer dans le cas d'un document en comprenant plu- 
sieurs (figure 14). 

Les choix stratégiques effectués, nous les validons par 


figure 14 


A ce moment, deux possibilités sont envisageables : 


Premièrement, l'imprimante connaît déjà le papier requis 
par le document qui va être imprimé parce qu'elle a 
reconnu que son réglage correspondait à celui du format 
de papier mis lors de l'édition du cadre (voir plus haut). 
Dans ce cas, tout va bien et le programme affiche les 
informations liées au type d'imprimante sélectionnée et 
propose de démarrer l'impression ou de l'annuler 

(figure 15). 


f6:0pt1015__ Eu 
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Conti 


figure 15 


Deuxièmement, l'imprimante n'est pas configurée com- 
me le document et le risque de mésentente, document 
et papier, doit être signalé afin qu'un remède puisse être 











apporté (figure 16). Ceci amène alors un conflit de 
configuration qui se matérialise par l'apparition d'un 
menu spécifique dans lequel les remèdes sont propo 
sés. Soit, nous laissons le papier prévu sachant qu'il 
pourra faire l'affaire compte tenu du papier en ligne 
(celui mis dans notre cadre de document), soit nous 
signifions que l'imprimante doit s'adapter aux exi 
gences de notre document (prendre papier en 
ligne) soit nous annulons purement et simplement 
l'impression. À l'exception de ce dernier cas, 

nous nous retrouvons alors à l'étape précédente et 
l'impression peut se faire. 


En liare 
Frécus: 


figure 16 





Du haut en bas de la chaîne, les éléments varient en 
de nombreux points et, malgré sa grande ergonomie, 
LOCOSCRIPT 2 ne peut se débrouiller sans un mini 
mum d'informations. L'important est donc de les maï- 


triser et surtout de savoir les lui indiquer. C'est toujours 
très logique si nous nous donnons la peine d'y réfléchir 
et la matière que nous avons là, nous en donne l'occa- 
sion. 


A bientôt 


Programmeur, 
Indépendants, 
Sociétés de 
Services 


ONTACTEZ-NOUS 


Pour être inscrits 
dans le catalogue 
du service entreprise 
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Service Entreprises: Ÿf 


N'attendez pas pour inscrire votre entreprise en retournant ce jour le bon ci-dessous à : 


O 


© 
O 


LOGTISTICK - CAPN LE BONAPARTE - BOITE 49 - 93153 LE BLANC MESNIL CEDEX 





e 

ne e 
 RRREDEESS 

CL] 

e e 





‘Au service de ses lecteurs, L'Echo du PCW met ses compétences, son savoir-faire 
et son important fichier de fournisseurs au service des entreprises de toutes tailles. 


Entièrement gratuit, ce nouveau catalogue ‘‘entreprise‘* est remis à jour et envoyé 
régulièrement à toute entreprise ou profession libérale qui en fait la demande. 





PC/PCW la compatibilité est possible avec le service 
entreprise avec un nouveau service de transfert de fichiers 
soit : recopie de fichiers CP/M vers MS/DOS 

ou l'inverse (MS/DOS vers CP/M). 


Ce qui sort de votre entreprise est à son image alors soignez-la avec : 
Papier à en-tête personnalisée en continu 

Facture à en-tête personnalisée en continu 

et tout type de formulaires personnalisés en continu. 


Le service entreprise, c’est aussi une liste de prestataires 
compétents pour résoudre vos problèmes quotidiens comme : 
Programmes sur mesure (tous langages) 

Connexions difficiles 

Maintenance et formation 


© De nombreux revendeurs accordent des remises aux entreprises, 


collectivités et professions libérales. Le service entreprise vous en 
donne la liste actualisée. 


Mens dde mshé né ol recréer nées iles med eh UE 2 ><- 


STE : FORME JURIDIQUE* : = "77% CAPITAL": 








ADRESSE COMPLETE : 








NOM ET PRENOM DU RESPONSABLE ACHAT INFORMATIQUE: MR? - MME® - MELLE? : = 
ACTIVITÉ PRINCIPALE : 


NOMBRE DE PCW EN SERVICE DANS L'ENTREPRISE : 


* FACULTATIF - ° RAYEZ LA MENTION INUTILE 





LOGI'STICK Publicité 48 65 44 55 






RUBANS PCW 9512 MULTISTRIKE 
LONGUE DUREE EXTRA NOIRS 


PAR 3 PIECES 
60 F L'UNITE* 


(SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23) 


* MEMBRES DU CLUB ECHO 55 F L'UNITE 
(SOIT 165 F TTC PAR 3 DONT TVA 18,6% = 25,88] 


| ET TOUJOURS POUR 8256/8512 
LES RUBANS SUPERS NOIRS... 


PAR 3 PIECES 
65 F L'UNITE* 


(SOIT 195 F TTC PAR 3 DONT TVA 18,6% = 30,58) 


* MEMBRES DU CLUB ECHO 60 F L'UNITE 
{SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23) 


ET LES RUBANS COULEUR LONGUE 
DUREE POUR PCW 8256/8512 
COULEURS DISPONIBLES : ROUGE, 


BON DE COMMAND 








NOM : PRENOM : BLEU, MARRON, VIOLET, VERT, ORANGE 

ADRESSE : | A L'UNITE 
*k 

CODE : = VILLE: 150 F 


(DONT TVA 18,6% = 23,52) 
* MEMBRES DU CLUB ECHO : 100 F L'UNITE 


COMMANDE PAR LA PRESENTE : 


























X = 
43 RUBANS NOIRS PCM 8266/8512 À 180 F LES 3 SOIT 2 180 Feu pee pggeng ON, VA M6# = 1569 
x 3 RUBANS NOIRS PCW 9512 À 165 F LES 3 SOIT X165F = 
X 3 RUBANS NOIRS PCW 9512 À 150 F LES 3 SOIT x 150 F° =. 

COULEURS : ___XROUGE x BLEU x MARRON X VIOLET _____XVERT ____XxORANGE 
x RUBAN COULEUR PCW 8256/8512 À 150 F PIECE SOIT xX150 F=_ 
X RUBAN COULEUR PCW 8256/8512 À 100 F PIECE SOIT x 100F° = 








AJOUTEZ LES FRAIS DE PORT : TOTALGENERAL : 
15 F POUR LA FRANCE - 30 F ETRANGER ET DOM TOM (PAR AVION) 

© PRIX SPECIAL CLUB ECHO DU PCW (INDIQUEZ VOTRE N° : CE... ) 

Ci-joint règlement à LOGI'STICK par LICHEQUE LIJMANDAT CCP [JVISA/CARTE BLEUE 


N° CARTE LL LD OO LOL OÙ OU OU OL 1 | | | | | | | ] 
Validité : | / 
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PROGRAMMATION BASIC 


LE COMPACT EUR POUR DB/ASE II 


DELREM et DELREM + permettent le 
compactage des fichiers de com- 
mandes DBASE (extension CMD) en 
supprimant toutes les lignes de com- 
mentaires équivalentes au REM du 
basic (commençant par * sous 
DBASE). DELREM permet de compac- 
ter un seul fichier à la fois alors que 
DELREM + peut se charger de traiter 
plusieurs fichiers successifs. 





SAISIE DU PROGRAMME: 


En pur basic, DELREM et DELREM + se saisis- 
sent conformément à l'annexe de la page 56 et 
sont immédiatement opérationnels suivant les ins- 
tructions du chapitre suivant. 


UTILISATION DU PROGRAMME: 





DELREM Une fois lancé par RUN, DELREM 
demande l'entrée du nom de fichier à 
compacter. Ce dernier est rentré sans 
l'extension CMD. Exemple pour le 
fichier TOTO.CMD tapez TOTO. 
L'affichage donne ensuite les lignes 
sans commentaire (représentées par 
”") et les lignes avec commentaires 
(représentées par *'). 

DELREM + Prévu pour effectuer le même travail 
que DELREM il peut le faire sur plu- 
sieurs fichiers qu'il faut entrer en 
DATA afin que le traitement se fasse 
automatique. Les lignes concernées 
sont : 

150 DATA (suivi des noms de fichiers séparés par 
une virgule) 

320 & 410 valeur finale de la boucle (For 1=1 TO N 
où N est le nombre de fichiers mis en DATA en 
ligne 150) 


Exemple : Dans le listing joint à cet article quatre 
commandes TATA, TOTO, TITI et TUTU sont 
mises en DATA ligne 150 et les boucles des 
lignes 320 et 410 vont de 1 à 4. 


par PETER CADBURY 
bbebaeBBEe DELREN HBABEMHEnEEE 
f Er rit jt tue les OR A clavier 
EE er oc D 


Fonte Hgne 10e 8e Animes Prorene d'iression time teste, 7" 


k fichier d'eigine est. avec l' 
eur que le progranne soi ant aucun 





Entrer le NOM (seul) du fichier .O® à traiter : TITI 
Le fichier est archivé sous : TITI,PAS 
Fichier : TITI.CND en cours de traitenent 





em EE pit rire attire ei ren 
(OTE TECHNIQUE: 


DELREM et DELREM + nettoient les fichiers avec 
extension CMD et conservent le fichier original 
(avec ses commentaires) dans un fichier sauve- 
garde dont l'extension est alors PAS. 


Les programmes DELREM.BAS et 
DELREMY+.BAS se trouvent sur la disquette 
ECHO N°20. 

000000000000 0000000000000000000000000000000 

16 "DELREM 10/01/88 

2 ‘ 
30 ‘PAR PETER CADBURY 

a" 

50 ‘POUR L'ECHO DU PCW 

60 escape$=CHR$(27)' (TV) 

10 hone$=escapes+"H"" (VX) 

80 cls$=escape$+"E"+hones' (40) 

90 PRINT cls$' (LS) 

100 PRINT:PRINT:PRINT"3Y3#2Y42#13 DELREN 22224232232" (98) 

116 PRINT:PRINT:PRINT' (40) 

120 PRINT"Ce progranné est destiné à éliainer les conmentaires d 
‘un progranne DBASE2"' (48) 

130 PRINT"Le non du progranne dont on veut élininer les connenta 
ires est entré au clavier"' (CF) 

140 PRINT:PRINT' CRT) 

158 PRINT"Les lignes de conmentaires doivent conmencer par 1'3"' 
(@v) 

160 PRINT'L'3 ne doit pas forcément être en début de ligne"! (NY 
) 

170 PRINT:PRINT"Toute Ligne écrite sur le fichier destinataire i 

aprine un , à l'écran"! (4V) 
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PROGRAMMATION BASIC 


180 PRINT'Toute ligne lue et éliminée provoque l'iapression d'un 
e étoile"' (LV) 

190 PRINT' (FB) 

200 PRINT'Le fichier d'origine est conservé avec l'extension ,PA 
S"' (66) 

216 PRINT"Pour que le progranme soit opérant aucun fichier de 'N 
OM,PAS' ne doit exister déja"' (F6) 

220 PRINT:PRINT:PRINT'RSRERRASEESSNAREEESAXTAAIESEIT"T (6H) 

230 ‘ 

240 ‘ 

250 ‘tt NOYAU 333 

260 ‘ 

270 PRINT:PRINT:PRINT' (4K) 

280 INPUT "Entrer le NOM (seul) du fichier ,CMD à traiter : “NO 
H$' (W8) 

298 NOMCOMPLETS=NOMS+" ,CHD"' (A1) 

300 NOUVEAUNOMS=NOM$+" PAS"! (AD) 

310 PRINT' (F5) 

320 IF FINDS(NOMCOMPLET$)="" THEN PRINT'Le fichier spécifié n'ex 
iste pas":END' (N@) 

330 PRINT "Le fichier est archivé sous : “inouveaunon$' (J4) 

340 NAME NOMCOMPLETS AS NOUVEAUNOMS' (PB) 

350 PRINT' (F9) 

360 PRINT'Fichier : ":NOMCOMPLET$:" en cours de traitement"! (SF 
) 

370 PRINT' (FB) 

380 OPEN "O",1,NOMCOMPLETS' (62) 

390 OPEN "I",2,NOUVEAUNOMS' (7A) 

408 WHILE NOT EOF(2)' (UZ) 

418 GOSUB 618" (J8) 

420 IF (LEFT$Cchaines,1) €) “£") THEN GOSUB 550 ELSE PRINT"#":' 
(J3) 

430 WEND' (CL) 

440 CLOSE' (EM) 

450 PRINT:PRINT' (RX) 

460 PRINT'Lignes lues dans le fichier d'origine : “:ligneslues' 
(YN) 

478 PRINT'Lignes écrites dans le fichier traité : ":lignesecrite 
s' (5P) 

480 PRINT'Conmentaires(ou lignes vides) élininés; "'ligneslues-1 
ignesecrites' (XM) 

490 PRINT:PRINT'FICHIERS FERMES"! (MS) 

DOD'PRINT fesses ssneennneessenpessnnssssessss "1 (02) 
516 PRINT' (F7) 

520 PRINT'Operation terninée“' (GY) 

530 PRINT' (F9) 

540 END' (A8) 

550 ‘X#4 routine d'écriture X44 

S68 ‘ 

570 ‘On calcule la longueur de la chaine pour l'élininer s'il n' 
y à que | RC 

580 IF (long>0) THEN PRINT #1,chaine$ PRINT" ,"::lignesecrites=li 
gnesecrites+l' (RG) 

598 RETURN' (HQ) 

600 ' 

610 REM XX routine de lecture du fichier associé XX} 

620 LINE INPUT #2,chaines' (3) 

630 ligneslues=lignesluestl' (EW) 

640 long=LEN(chaine$)' (2N) 

650 VHILE (LEFT$#(chaine$,1) = " ")' (BJ) 

660 chaines = RIGHT$(chaine$ LEN(chaine#)-1)' (VI) 

670 WEND' (CR) 

680 RETURN' (HQ) 


ES 
ä 
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19 "DELREN + 

2 ‘ 

30 ‘PAR PETER CADBURY 

40 ‘ 

50 escape$=CHR$(27)' (TU) 

60 home$=escapes+"H"! (VW) 

10 cls$=escape$+"E"+hones' (4B) 

80 ‘tx NOYAU 33 

$8 ‘Ci dessous liste des fichiers ,CND qui peuvent etre purgés d 
e leurs 

188 ‘connentaires par DELREM+ 

110 ‘ 

128 ‘ 

130 ‘Ci dessous doivent figurer en DATA les nons des fichiers à 
traiter 

148 ‘ne pas oublier également la variable de controle de la bouc 
le (LIGNES :350 & 440) 

150 DATA TATA,TOTO,TITI,TUTU:' (6Q) 

160 ‘ 

170 PRINT cls$' (MJ) 

180 PRINT:PRINT:PRINT:PRINT'XXYHREXNNE DELREM + SÉSHREREEE"T (J 
V) 

196 PRINT:PRINT" Cet utilitaire est destiné à effacer les lignes 
de commentaires d'une"! (64) 

208 PRINT" série de progrannes écrits dans le langage de progran 
nation DBASE 2"! (PN) 

218 PRINT:PRINT" [1 est intéressant d'utiliser le disque virtuel 
CH)" " (CT) 

228 PRINT" On pourra s'aider d'un SUBHIT pour le transfert dans 
nm"! (33) 

236 PRINT'PRINT:PRINT"Chaque ligne écrite dans le fichier destin 
ataire est narquée par un , à l'écran"! (4H) 

240 PRINT"Chaque ligne lue mais non écrite est marquée par une À 
à l'écran"! (F6) 

256 PRINT"Chaque ligne de conmentaire DOIT comnencer par 1'4"! ( 
VO) 

260 PRINT"I1 n'est pas nécessaire que l'# soit en début de ligne 
"1 (V3) 

270 PRINT'PRINT' CRI) 

280 PRINT"Ci après liste des fichiers ,CHD qui peuvent etre purg 
és de leurs"! (NE) 

296 PRINT"conmentaires par DELREM+"' (Q2) 

300 ‘ 

310 PRINT:PRINT' (RS) 

320 FOR i=1 TO 4' (LM) 

338 READ NOHS$' (JK) 

340 PRINT NOM$,' (NY) 

358 NEXT' (D3) 

3606 PRINT;PRINT' (RK) 

370 PRINT'L'utilitaire pour transférer en M les fichiers à purge 
rest ;VIRCHD,SUB"' (06) 

380 PRINT: INPUT'Désirez vous une PAUSE entre chaque traitement d 
e fichier(O/N)":REPS' (52) 

390 ‘ 

400 RESTORE' (JC) 

410 FOR i= 1 TO 4' (LM) 

4206 READ NOMS$' (JK) 

430 NOMCOMPLETS=NOMS+" CMD"! (91) 

440 NOUVEAUNOMS=NON$+", SAC"! (95) 

450 PRINT:PRINT' CRI) 

468 PRINT"Le fichier qui va etre traité a pour non : “;NOMCOMPLE 
1$' (25) 

470 PRINT' (FC) 

488 PRINT "L'ancienne version du fichier sera archivée sous : "! 
nouveaunon$' (LO) 

490 PRINT' (FE) 

500 IF REP$="0" THEN GOSUB 930' (80) 

516 IF FIND$CNOUVEAUNOMS)€)"" THEN KILL NOUVEAUNOMS :PRINT"I fich 
ier, SAC existant à été effacé" (FF) 

526 PRINT CLS$' (MI) 

530 PRINT:PRINT' (RW) 
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540 PRINT'Fichier : ":NOMCOMPLETS:" en cours de traitement"! (SF 

) 

550 PRINT' (FB) 

560 PRINT "L'ancienne version du fichier est archivée sous : “in & 

ouveaunon$' (J4) 

570 PRINT:PRINT' (50) 

S80 NAME NOMCOMPLETS AS NOUVEAUNONS' (PH) 

590 OPEN "Q",1,NOMCOMPLETS' (72) 

600 OPEN “1",2,NOUVEAUNOMS' (74) 

619 VHILE NOT EOF(2)' (V2) cs 


620 GOSUB 850! (19) Z 
630 IF (LEFTSCchaines, 1) €) “#") THEN 60SUB 799 ELSE PRINT'3":' eros eZ 
(JC g Il ] | | 


640 WEND' (C0) 

650 CLOSE' (EP) 

660 PRINT:PRINT' ($0) 

670 PRINT'Lignes lues dans les fichiers d'origine : “:ligneslue 
s' (30) 

680 PRINT'Lignes écrites dans les fichiers traités : ":lignesecr 
ites' (CP) 

690 PRINT'Connentaires (ou lignes vides) élininés : "'ligneslue 
s-lignesecrites' (KP) 

700 PRINT:PRINT'FICHIERS FERMES"! (MM) 

116 PRINT ESS ssssenenesnnsnnesssnmesaesessssnésnnenr "1 (05) 
720 PRINT' (FA) 

7130 IF REP$="0" THEN GOSUB 930' (8V) 

740 NEXT i' (F7) 

750 PRINT:PRINT' (S9) 

160 PRINT'Opération terminée"! (H4) 

770 PRINT' (FF) 

780 END' CAE) 

190 ‘#Xt routine d'écriture X34 

800 ‘ 

819 ‘On calcule la longueur de la chaine pour l'éliainer s'il n' 
y à que 1 RC 

826 IF (long»@) THEN PRINT #1,chaine$:PRINT" ,";:lignesecrites=li 
gnesecritestl' (RD) 

830 RETURN' (HN) 

840 ‘ 

850 REM 344 routine de lecture du fichier associé #43 

860 LINE INPUT #2,chaine$' (43) 

870 ligneslues=lignesluestl' (F2) 

880 long=LEN(chaine#)' (2T) 

890 WHILE (LEFT$(chaine$,1) = " ")' (BP) 

900 chaines = RIGHT$Cchaines LEN(chaine$)-1)' (YF) 

910 WEND' (C0) 

920 RETURN' (HN) 

930 ‘Xk4 Routine d'attente 333 

940 ‘ 

958 PRINT' (FF) 

960 PRINT'Entrer un caractère pour continuer"! (96) 

970 UHILE INKEYS=""! (U6) 

980 WEND' (CV) 

994 RFTURN' CHI 





dE | c'est LOG STICK 
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par Marie-Claire LALANNE 


COCECECEEPEEEECEUT 


ne nn 00000000 000000 000000000000 000 000000 000000000000 000000000000 008 000 00000 000 0000000000 000000000600 n00 00800 









DUSE DL 


eesnonsnsssann ea ne neo 00 Se A RS RS RSS e 0 0 s00 00 000 200 200000 000 000 200 000 000 000 000000000000 000000000000 000 000000000000 000 000000000000 000 000 200008000000 000000000000008 00 





css 
sosnnnesssnnnsnenses none RS en entente 00 00 000 00 000 000 000000 000 000 000 000 000000000000 000000 000 000000 000000000000 000 006080000000 00 000000000000 000000 000000000000000 0 
sonsssnno sonne ne 00 00 Re DO Se 600000011100 000 ES AS 00000 0111115 Se 00 000 see 000000 00 sen 000000000000 000 000000 000000000000 000 000 200 000000 000 000000000000 000000 000000000000 000 00000000 en snn one nee 0e 
sue 


000 0000000000000000000000000000000000000000 0! 


Outil de gestion par excelléñce, 
DBASE 11 permet de traiter des 
valeurs numériques pour donner 
de précieuses informations. 
Moyennes ou simplement cumuis, 
il peut s'avérer utile d'en obtenir 
des représentations graphiques 
sous forme d'histogrammes sans 


een se nn n esse sense ene sense essnensessnenenee li ne0000000000000000 000000 000 000000000000 000 000000000000 000000000000 000 000000000000 000 000000 008 00000000 0000 000000 00 0 0000000000 00000 







Saisie du fichier de commande : 





Comme toujours, les commandes DBASE peuvent 
être saisies directement sous LOCOSCRIPT et 
converties en ASCII (version 1.21 et plus de 
LOCOSCRIPT) mais aussi à l'aide de l'éditeur 
DBASE judicieusement sollicité par : 

MODIFY COMMAND HISTO <RETURN> 


avoir à subir les méandres des 
conversions de fichiers et autres 
transferts compliqués vers 
d'autres programmes de traite- 
ments graphiques. Le programme 
que je vous propose est donc 
écrit en pur DBASE pour se mettre 
au service de données issues 
de... DBASE! 


000000000000000000000000 000000000000 000 000000000000 000 0000000000000000000000000000 000000000000 000 000000000000 0000 000000000000 000 








Quelque soit votre choix, vous devrez arriver au 
résultat du listing joint à cet article. 


Le démarrage de l'application impose le charge- 
ment préalable de DBASE puis lancement de la 
commande précédemment saisie par : 

DO HISTODB <RETURN». 


# 





Le programme que je vous communique dans cet 
article est autonome à savoir, qu'il permet d'entrer 
les données directement au clavier. Pour extraire 
les données d'un fichier quelconque sans avoir à 
les saisir, il vous faudra adapter le programme à 
vos impératifs. N'ayant pas la joie de les connaître 
pour le faire à votre place, je me contenterai de 
vous donner quelques conseils pour arriver à cet 
interfaçage (interfacer = trouver le moyen de 
mettre les données d'un programme au format 
d'un autre programme, voir plus loin). 


Pour revenir à la saisie des données, notez que 
vous disposez de dix entrées par histogrammes et 
que le fait de taper <RETURN> sans valeur est 
considéré comme une entrée égale à zéro. Donc 
si vous ne disposez que de sept valeurs vous 
devrez presser trois fois <RETURN> après les 
avoir entrées. 


flu bonheur des trames: 


Pour agrémenter la représentation des histo- 
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grammes, je vous propose plusieurs possibilités 
d'utilisation de codes graphiques qui pourront faire 
l'objet de différentes versions du programme de 
base. Pour arriver à cela voilà comment procéder: 
- Copiez le programme principal sous CP/M quand 
il est complètement au point par : 

PIP HISTODB1.CMD=HISTODB.CMD <RETURN> 

- retournez sous DBASE et Modifiez HISTODB1 
par MODIFY COMMAND HISTODB1 <RETURN> 
et remplacez les variables HAUT, TRANCHE et 
BAS par les valeurs données avec chaque 
exemple. 

- Refaites l'opération autant de fois que vous dési- 
rez de versions de trame en changeant le nom du 
programme à chaque fois 

(HISTODB2, HISTODB3, etc). 


Interfaçage avec d'autres logiciels: 


L'entrée manuelle des données se passe à la trei- 
zième ligne du listing dans une boucle allant de 0 
à NB dont la valeur est égale à 12 (STORE 12 TO 
NB à la quatrième ligne). La récupération de don- 
nées issues d'un autre fichier pourra donc se faire 
par l'intermédiaire d'un fichier de variables (MEM) 
dans lequel les données auront été mémorisés au 
préalable. Vous devez toutefois conserver le nom 
et l'indice des variables d'HISTODB soit 
VAL&IND. 


Conclusion: 


Simple et rapide à saisir, HISTODB et ses cousins 


tramés constituent un pas supplémentaire dans la 
constitution d'une importante bibliothèque d'utili- 


taires qui font de DBASE Il le roi des outils de ges- 


tion sur PCW. 


Les commandes de cet article se trouvent sur 
la disquette ECHO N°20 





HISTODB1.CMD RAYURES EN LONG: 


store CHR(150)+CHR (158) +CHR(158)+CHR(158)+CHR (156) to HAUT 
store CHR(149)+CHR (149)+CHR (149) +CHR(149)+CHR(149) to TRANCHEL 
store CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) to BAS 





PROGRAMMATION PROGRAMMATION DBASE + L'ECHO DU PCW N°20 2 DE L'ECHO DU PCW N°20 


HISTODB2 . CMD QUADRILLAGE : 


store CHR(150)+CHR(158)+CHR(158)+CHR(158)+CHR(156) to HAUT 
store CHR(151)+CHR(159)+CHR (159) +CHR(159)+CHR(157) to TRANCHE 
store CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) to BAS 





HISTODB3.CMD BRIQUES : 


store CHR(150)+CHR(154)+CHR (158) +CHR(154)+CHR(156) to HAUT 
store CHR(151)+CHR(154)+CHR(159)+CHR(154)+CHR(157) to TRANCHE 
store CHR(155)+CHR(155)+CHR(155)+CHR(154)+CHR(155) to BAS 





HISTODB4.CMD RAYURE EN LARGEUR: 


store CHR(151)+CHR(154)+CHR(154)+CHR(154)+CHR(157) to TRANCHEI 


28736 
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PROGRAMMATION DBASE 








À 

HISTODB.CMD *4** 
RU À 
clear 


set talk off 

set colon off 

store 12 to NB 

store 0 to CPT 

store 0 to MAX 

store " *XX HISTOGRAMMES EN D.BASE *** "to TITRE 
store " par M-Claire LALANNE pour l'ECHO DU PCW " to T2 
erase 

à 6,25 get TITRE picture "XXXXXXXXXXXXXXXXXINNIINENENXX " 
à 7,25 get T2 picture "XXXXXXXXXXXXXXXXXXXXEXXEXANNEXX 
clear gets 

ER DEBUT DE LA BOUCLE 
do while CPT < NB 

store (CPT+1) to CPT 

store $(STR(100+CPT,3),2,2) to IND 

store 0 to VAL&IND 

à 9,27 say "Entrez les 12 valeurs à représenter:" 

à 10,35 say "VALEUR NügIND : " get VAL&IND picture "99999" 
read 

if VAL&IND > MAX 

store VAL&IND to MAX 

endif 

enddo 

ne eennnennes FIN DE LA BOUCLE 
store 0 to CHOIX 

à 13,30 say "Voulez-vous un histogramme:" 

à 14,30 say "1- ordinaire" 

à 15,30 say "2- en vidéo inverse" 

à 17,30 say "Votre choix,s'il vous plait ? :" get CHOIX 
picture "9" 

read 

if CHOIX # 1 .and. CHOIX # 2 

store 1 to CHOIX 

endif 

22 CHR(27)+CHR(102) 


* 


R VARIABLES À MODIFIER POUR VERSIONS TRAMEES 
* 

store CHR(150)+CHR(154) +CHR(154)4CHR(154) +CHR(156) to HAUT 
store CHR(149)+" "4" "4" MICHR(149) to TRANCHEL 

store " "to TRANCHE2 

store CHR(155)+CHR(154) +CHR(154)+CHR(154) 4CHR(155) to BAS 


* 
** AXES de COORDONNEES 


* 

store (CHR(154)+CHR(154)+CHR(154)+CHR(154)+CHR(154)) to TH5 
store (TH5+TH5) to TH10 

store (TH10+TH10) to TH20 

store (TH20+TH20) to TH40 

store (TH40+TH20+TH10+TH5+CHR (154) +CHR(154)+CHR(154)) to 
AXEX 

release TH5,TH10, TH20, TH40 

erase 

à 27,1 say CHR(147)+AXEX 

store 27 to ligne 

do while ligne # 0 

store (ligne-l) to ligne 

à ligne,1 say CHR(157) 

enddo 

**_HISTOGRAMMES 

store 4 to abscisse 

store 0 to CPT 

DO WHILE CPT < NB 

store (CPT+1) to CPT 

store $S(STR(100+CPT,3),2,2) to IND 


if VAL&IND = 0 
store (abscisse+6) to abscisse 
loop 


Es PROGRAMMATION DBASE+ L'ECHO DU PCW N° 20 


NIVEAU DEBUTAN 





endif 
store INT((25*VAL&IND/MAX)+0.50) to BD 
store 27 to ligne 
if CHOIX = 1 
à ligne,abscisse say BAS 
endif 
store 0 to K 
do while K < BD 
store (ligne-1) to ligne 
if CHOIX = 1 
à ligne,abscisse say TRANCHEL 
endif 
if CHOIX = 2 
à ligne,abscisse get TRANCHE2 picture " " 
endif 
store (K+1) to K 


enddo 
if CHOIX = 1 
à (ligne-1),abscisse say HAUT 
endif 


à (ligne-2),abscisse say VAL&IND 
store (abscisse+6) to abscisse 
ENDDO 

à 29,1 say " " 

22 CHR(27)+CHR(101) 

RETURN 
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M. HAMEL PASCAL - 76 VALMONT 


Au sujet de la souris AMX 

Après avoir écrit au distributeur, pour avoir des rensei- 
gnements qui n'ont pas pu m'être transmis, j'ai dû 
prendre mon courage à deux mains et décortiquer pen- 
dant de longues heures manuels, souris et PCW afin de 
comprendre comment utiliser cet instrument qui fonc- 
tionne si bien sous DTP-PAO. Ainsi, je suis en mesure 
de vous livrer les ports concernés par la souris : 

- l'état des boutons est testé sur le port 162 (en décimal); 
les quatre possibilités de retour les plus intéressantes 
sont (toujours en décimal) : 

. 135 = aucun bouton appuyé 

. 134 = bouton de gauche appuyé 

. 133 = bouton central appuyé 

. 131 = bouton de droite appuyé 

Il suffit pour connaître les autres (celles qui concernent 
l'appui simultané sur plusieurs boutons) d'un program- 
me basic ultra court du genre : 

10 b=inp (162) :while b=135:b=inp(162) :wend:print b:goto 10 
- les déplacements verticaux de la souris concernent le 
port 160. 

- les déplacements horizontaux sont testés au port 161. 
A ce sujet, j'avoue ne pas avoir tout compris, et mes 
essais successifs m'ont montré que la valeur retournée 
par la fonction INP du basic, une fois traduite en hexa- 
décimal se trouvait modifiée par les déplacements soit 
sur le chiffre hexadécimal gauche soit sur le droit. Ainsi, 
en testant le déplacement horizontal (INP (161) ), la 
modification du chiffre gauche indique un mouvement à 
gauche, alors que la modification du chiffre droit 
indique un mouvement à droite. De même pour les 
déplacements verticaux (INP (160) ), le chiffre gauche 
concerne les mouvements en bas alors que le chiffre 
droit concerne les déplacements vers le haut. 


Ainsi, et puisque l'explication précédente n'est pas très 
claire, j'ai modifié le programme que vous avez fait 
paraître sur les menus déroulants de telle façon que les 
mouvements ne soient gérés que par la souris AMX, les 
lignes modifiées sont : 


950 ‘<<<<<<<<Programme de menu déroulant modifie>>>>>>>> 

951 ‘<<<<<<<<pour fonctionner avec la souris AMD>>>>>>> 

952 ‘ 

960 

970 v=INP (160) :b=INP (162):1F INP (160)<>v OR b=131 THEN 980 ELSE 970 

980 IF b=131 RETURN 

990 

1000 1F (LEFTS (HEXS (v, 2) ,1)<>LEFTS (HEXS (INP (160),2),1)) AND ch<0 THEN 
GosuB 1030:ch=ch+1:GOT0 930 

1010 IF (RIGHTS (HENXS (v, 2) ,1) RIGHTS (HEX$ (INP (160),2),1)) AND ch>1 then 


COSUB 
1030:chech-1:6OT0 930 
1020 GOTO 970 


Après un test par valeur=INP (port), il suffit de conver- 

tir la valeur renvoyée en hexadécimal par 

HEX$ (valeur) qui renvoie une valeur sous la forme : 
XY 


ou 
0<XetY<F 


et ensuite de vérifier lequel de ces deux chiffres se trou- 
ve modifié pour connaître le sens du déplacement. 
PORT À TESTER VALEUR HEXA  DEPLACEMENT 


INP (160) BAS HAUT vertical 
INP (161) GAUCHE DROITE horizontal 
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Je profite d'ailleurs de cette lettre pour signaler aux pos- 
sesseurs de la souris AMX et aux autres qu'il existe une 
façon extrêmement rapide de tracer à l'écran des lignes 
verticales autrement que par la traditionnelle boucle : il 
suffit de connaître la longueur de la ligne et d'inclure en 
début de programme : 

1 for a = 1 to longueur - 1 : v$ = chr$(149) + chr$(8) + 
chr$(10) :next:v$ = v$ + chr$ (149) 

(chr$ (149) peut d'ailleurs être remplacé par 

chr$ (133) pour un trait double) 

la variable v$ contiendra une chaîne de caractères et 
affichera aussi rapidement que la fonction STRINGS$ un 
trait vertical (faites l'expérience en traçant ne serait-ce 
que 5 traits verticaux comme suit : 

1 def fnc$(x,y)=chr$ (27)+"Y"+chr$ (32+x)+chr$ (32+y) 

2 for a=1 to 25:print fnc$(a,1); chr$(133); fnc$(a,5); 
chr$(133); fnc$(a,10); chr$(133); fnc$(a,15); chr$(133); 
fnc$(a,20); chr$(133); fnc$(a,25); chr$(133): next 


Puis modifiez comme cela : 

1 def fnc$(x,y)=chr$ (27) +"Y"+chr$ (32+x) +chr$ (32+y) 

2 fore-1tolongueur! :v$=chré (149) +chr$ (8)+ 

chr$ (10) :next:v$=v$+chré (149) 

3 print fnc$ (0,1); chr$(133); fne$ (0,5); chr$(133); fne$ (0,10); 
chr$ (133); fnc$ (0,15); chr$(133); fnc$(0,20); chr$ (133); 

fnc$ (0,25); chr$(133) 


L'ECHO 


Félicitations unanimes de la part des utilisateurs qui 
manquaient cruellement d'informations de ce type 
pour adapter la souris AMX à leurs programmes favo- 
ris. En leurs noms, nous vous envoyons un super bot- 
tier pour vos disquettes ainsi que nos compliments 
pour ce travail... 


M. LAURENT Jean-Paul - 04 CERESTE 
PAR REILLANNE 


je profite de votre offre d'annonce gratuite pour vous 
demander de publier celle jointe sur une feuille séparée. 
En effet, et bien qu'au dos il n'y ait que du courrier, cela 
me hérisse le poil de tailler à grand coup de ciseaux 
dans la revue. 

J'avais le haute main sur tout ce qui était ordinateur et 
automate programmable avant que mon employeur ne 
ferme ses portes, il y a un peu plus de deux ans. 
Maintenant, j'entends régulièrement répondre : "46 ans ? 
Trop vieux!" 

Tant que j'y suis, permettez-moi, par le biais de quatre 
anecdotes, d'ajouter de l'eau au moulin de M. Gérard 
DUBUC (L'ECHO DU PCW N°17). Je citerai ni nom, ni 
marque, car cela n'apporterait rien si ce n'est faire de la 
peine aux gens concernés. 


COURRIER *+ L'ECHO DU PCW N° 20 [ART Le | 


1) A l'origine de l'informatisation de l'entreprise où je 
travaillais, ils ont embauché quelqu'un qui "s'y connais- 
sait”. Pensez donc, où il était avant, il s'occupait de la 
maintenance d'un gros ordinateur (peut-être pour chan- 
ger les fusibles ?) A cause de cela je l'admirais béate- 
ment. Je prévoyais de magnifiques et longues conversa- 
tions sur LE SUJET. Pourtant, un jour, oh! bétise, j'eus la 
funeste idée de demander : 

- … et cet ordinateur, quel type de bus employait-il ? 

Il commença par rire puis se moqua gentiment. J'avais 
proféré une énormité! 

- Un bus ? … Pourquoi pas un métro tant que vous y êtes ? 
Vlan! Mon idôle venait de se casser la gueule du piedes- 
tal où je l'avais installée. Je m'en suis retourné, déçu, 
m'occuper des problèmes de mon service. 

2) Depuis quelques temps déjà, je possédais un micro- 
ordinateur. À l'époque la mémoire plafonnait à 7 KO. 
L'ingéniosité des "bidouilleurs" n'avait pas de borne. 
Nous montions un minuscule haut-parleur sur une sor- 
tie du PIA pour obtenir des sons que nous baptisions 
musique. Certains ont même réussi à synthétiser la paro- 
le humaine toujours par l'unique broche du PIA et le 
minuscule haut- parleur. Je me souviens d'un program- 
me calculette qui annonçait les chiffres rentrés au clavier 
ainsi que les résultats. Un autre programme ouvrait une 
fenêtre contenant des dessins en haute définition alors 
que celle-ci n'existait pas sur l'appareil et que les carac- 
tères étaient inredéfinissables car en ROM. 


Cet appareil avait des charmes, entre autre, celui d'ac- 
cepter les ordres BASIC en abrégé. Or voila t'il pas que 
l'interpréteur (en ROM) tombe en panne. Je retourne 
voir mon vendeur, j'écris devant lui une boucle en 
BASIC abrégé contenant l'instruction qui ne passe plus. 
La première réflexion du vendeur (distributeur de la 
marque pour tout le sud de la France depuis deux ans 
bien tassés) : 

"C'est normal cela ne veut rien dire”. 

Etonnement quand, rappelant list, il se rend compte que 
les mots sont bien corrects. Sa réaction : 

- Si vous Le désirez, je vous embauche de suite comme ingé- 
nieur des ventes. Son "ingénieur des ventes" ne m'intéres- 
sait guère à l'époque, surtout payé comme un 
manoeuvre! 


3) Retour chez mon patron. Celui-ci me demande de for- 
mer le chef des relations sociales à la micro- informa- 
tique. A l'époque, l'appareil, acheté fort cher, ne vaudrait 
pas, aujourd'hui, un PCW qui serait partiellement en 
panne! Je cherche l'instruction HOME, ne la trouvant 
pas, je téléphone au fournisseur de l'appareil. Réponse : 
- Cela n'existe pas sur cet appareil et d'ailleurs ça ne sert à 
rien. 

Je m'entête et découvre la combinaison des CHR$ + 
lettres qui me permet de l'obtenir. Un chef des relations 
sociales n'étant pas un monsieur qui se laisse marcher 
sur les pieds, il rappelle notre bonhomme pour lui dire 
son fait. Loin de se démonter, l'autre répond : 

- Attendez un instant, je le note … Si vous faites d'autres 
découvertes, prévenez moil 

le chef des R.S. manqua d'avoir une crise cardiaque!! 


4) Dernièrement, je suis invité pour prendre un pot à 
l'occasion de l'ouverture d'un magasin d'informatique. 
Discutant à bâtons rompus avec l'hôte, je manque tom- 
ber à la renverse. 

Comme dans un rêve, je l'entends me dire : 





- L'informatique, je n'en ai rien à f... Cela ne m'intéresse que 
si cela rapporte. Avant, je vendais des planches à voiles. 
J'espère faire plus de chiffre avec les micros UNTEL (rassu- 
rez vous c'est pas des PCW), si ce n'est pas le cas, je ven- 
drais des sous-vêtements pour dames, ou autres choses. I] me 
dis même quoi. J'en rougis encore... 

- Mais … et Les clients qui débutent ? 

Il a un grand geste désinvolte de la main et me tourne le 
dos. Je l'ennuie prodigieusement. C'est curieux, le petits 
fours sont rassis tout à coup!! 


Savez-vous où je pourrais trouver les renseignements 
suivants : comment écrire et surtout lire un caractère 
dans la mémoire écran du PCW 8256 ? 

Pour finir, deux petites astuces concernant DBASE II 
dont il ne me semble pas avoir vu une allusion nulle 


part. 


1) pour détruire de façon sélective dans toutes l'étendue 
du fichier champ N X= NREVUE 

.DELETE ALL FOR NREVUE=S5 

Ne parquera que les enregistrements portant une 
NREVUE à 5 


2) pour n'indexer que sur une portion de champ 
X= ARTICLES 
.INDEX ON $ (ARTICLES,1,15) TO ECHO 


Le fichier index ECHO prendra ainsi beaucoup moins 
de place que la forme normale surtout si ARTICLES est 
un champ de 30 caractères. Bien sûr, il reste alors un 
léger doute quant à la place qu'occupent deux fiches dif- 
férentes d'un caractère après le 15ème. 


L'ECHO 


Encore un peu d'eau au grand moulin de la micro-informa- 
tique. Il semble toutefois que votre passion a su résister avec 
vigueur aux affres de l'obscurantisme puisque vous nous 
transmettez des tuyaux que les DBASistes sauront apprécier 
à leur juste valeur... 

Pour ce qui concerne l'emplacement mémoire des caractères, 
nous vous conseillons de vous procurer GRAPHIC MAGIC 
dans lequel vous trouverez non seulement les informations 
utiles mais aussi les outils pour les exploiter au maximum. 
En attendant, nous espérons que le petit cadeau que votre 
sympathique collaboration vous vaut, fera votre bonheur. 


THIERRY FATH - 51 CHAVOT-COURCOURT 
Chers PCWistes, 


Je vous écris pour vous féliciter de votre journal que je 
lis assidument depuis le numéro 11. Tous les mois, je me 
précipite sur le courrier des lecteurs afin d'y trouver des 
trucs ou afin d'avoir le réponse à mes questions sur le 
PCW. 

Je tiens à apporter ma pierre à l'édifice qu'est la rubrique 
du courrier, aussi vous trouverez, ci-joint, le listing d'un 
petit programme, permettant la saisie d'une routine en 
langage machine et le désassemblage de cette routine. 
Cette routine permet d'utiliser les capacités sonores du 
PCW. Le programme émet des bips sonores séparés par 
un certain temps, il est possible de moduler le son obte- 
nu en faisant varier ce temps qui est constamment affi- 
ché à l'écran en hexadécimal. 

il varie de 0 à 65535 unités; 65535 unités représentent à peu près 1 seconde). 


Re COURRIER » L'ECHO DU PCW N° 20 





10 d=&HE300 
FOR i=d TO &HESE5 
80 READ a$:a=VAL("’&h''+a$):s=s+a:POKE i,a:NEXT i 


40 IF s<>27516 THEN PRINT 
50 CALL d:END 

DATA 
DATA 
64 DATA 
DATA 
DATA 
DATA 
DATA 
74 DATA 
76 DATA 
78 DATA 


Pour faire tourner ce programme, il y a 7 touches à utili- 
ser (les caractères sont obligatoirement en 
MAJUSCULES) 


- La barre espace permet le retour au BASIC. 

- ‘P'augmente le temps de 1 unité de temps. 
-'M' diminue le temps de 1 unité de temps. 
-‘O' augmente le temps de 100 unités de temps. 
-'L' diminue le temps de 100 unités de temps. 
-‘l' augmente le temps de 1000 unités de temps. 
-'K' diminue le temps de 1000 unités de temps. 


Tout comme Alex DEGRANGE (courrier de l'ECHO N° 
18), je me suis longtemps demandé comment faire pour 


"ERREUR DANS LES DATAS !!!':END 


SE, 1B, CD, 90,E8,8E, 45, CD, 90, E3,38E, 1B, CD, 90,E8,3E,48,CD,90,E8,21,01,00,22 
E9,E3,C3,97,E3,2A,E9,E3,3E, 0B, D3,F8, 06,32, 05,20, FD, SE, OC 
D3,F8,2B,8E,00,BC,20,FA,BD,20,F7,0E,06,1E,FF,CD,05,00,28,DE,FE, 20 
20,01,C9,FE,50,28,17,FE,4D,28,18,FE,4F,28,19,FE,4C,28,1A,FE,49,28,1B,FE 
4B,28,1C,C8,1D,E3,11,01,00,18,19,11,01,00,18,1D,11,64,00,18,0F,11,64,00 
18,13,11,E8,03,18,05,11,E8,03,18,09,2A,E9,E3,19,22,E9,E8,18,11,2A,E9,E3 
ED,52,22,E9,E3,18,07,5F,0E,02,CD,05,00,C9,2A,E9,E3,2B,7C, 32, E6,ES8, E5, CD 
B3,E8,E1,7D,32,E6,E3, CD, B3,E3,8E, 20, CD,90,E8,C3, 1D,E3,8E, 00,32,E7,E3, 32 
E8,E3,3A,E6,E3,82,E7,E3,21,E8,E3,ED,6F,3E,00,21,E7,E3,ED,6F,CD, DC, E3, CD 
90,E8,S83A,E8,E3,CD, DC, E8,CD,90,E8,FE, 0A,30,08,C6,30,C9,C6,837,C9 


concerne la mise en page de ces étiquettes, un tirage 
imprimante de cette mise en page, l'astuce pour créer 
des étiquettes auto-collantes est très simple, il suffit de 
faire un tirage imprimante puis de superposer sur celui- 
ci une étiquette auto-collante vierge ayant un format suf- 
fisant pour couvrir l'impression préalablement réalisée, 
de repositionner la feuille support d'une manière iden- 
tique à la première impression et de réimprimer à nou- 
veau. 

Pour faire adhérer l'étiquette vierge, il suffit de réduire 
par coupage le papier support d'étiquettes sur quelques 
millimètres dans sa partie supérieure. 


mettre une fonction dans un programme sans arrêter L'ECHO 
son déroulement. J'ai trouvé une solution simple ne 
Bravo! 


nécessitant pas l'utilisation du langage machine. 

Voici la solution pour introduire une fonction à la ligne 
30 dans un programme : 

10 INPUT "F(X)=";a$ 

20 OPEN "O",#1, "TRANSFER.T":PRINT #1,"30 DEF NF (X)="+A$: 
CLOSE #1:CHAIN MERGE "TRANSFER.T", 30, ALL 


De cassettes à disquettes il n'y a qu'un pas que nous franchi- 
rons avec le cadeau d'usage que votre géniale idée mérite . 









40 INPUT "X=";X:PRINT "F(";X;")=;FNF (X):GOTO 40 l'os 

+ + 3 + + 

, pe , ! 
Si l'on rentre "F(X)= SIN(X)", le listing devient : ; ; ; ; ; À # Non et adresse du propriétaire de Ia cassette à Ë 
LL RSR ARE Rom 

10 INPUT "F(X)=";a$ 3 3 3 3 3 Lûe 000 à 6.0 x LE PONT DE LA RIVIERE UT le 
20 OPEN "O",#1, "TRANSFER.T":PRINT #1, "30 DEF NF(X)="+A$: 5 5 3 3 3 le 
CLOSE #1:CHAIN MERGE "TRANSFER.T", 30, ALL 3 3 3 3 3 De MMA MN nn ke 
30 DEF FNF(X)=SIN(X) RE ROSE nnenennnnes mine le 
40 INPUT "X=";X:PRINT "F(";X;")=";FNF (X):GOTO 40 (ascime 

Q 
J'espère que ces trucs seront utiles aux lecteurs de © ———, 
l'ECHO et que j'ai répondu à la question d'Alex 1 SOSTEN ANNE 
Degrange. l de 


L'ECHO 


LE PONT DE LA RIVIERE KHAI Ï$ 


Par ces lignes, vous nous donnez la preuve éclatante que AT 
6 Sas 5 é . . . 
l'amitié id PCWistes # = pAs un An né, Votre contri- | * Non et adresse du propriétaire de la cassette * | 
bution vous enrichi d'un boîtier de rangement de disquettes DONS a 
ainsi que la reconnaissance éternelle de tous! l 
a 00,00 à 00,00 * LE PONT DE LA RIVIERE KWAI e* rech dns de VIDEO 
JACQUES ROBERT - 16 COGNAC | .° étiquette aur le boitier de protection « 


mommmnmmmmmmmmmmmmmmmmmmemmmemmmmemememmmmmmmn en —— 


étiquette sur le plat de la cassette VIDEO 


Très cher ECHO DU PCW, Ide 00,00 à 00,00 Écrmat ar aes onrédt ose devis 


LU 
DR RER EE MN 


Possesseur de tous les n° déjà parus, je les exploite dans 
toutes les possibilités qu'ils offrent à vos lecteurs. 
Recevant aujourd'hui le N°19 de MAI 88, j'ai pensé pou- 
voir apporter une aide à ceux qui vous lisent et qui dési- 
reraient éditer des étiquettes pour leurs cassettes 
VIDEO et vous transmets donc les élucubrations aux- 
quelles je me suis livré pour éditer mes propres éti- 
quettes. 

Vous trouverez, ci-joint, une copie d'écran pour ce qui 





étiquettes auto-collantes utilisées : DORET références 40-78116 dimensions = 78 x 116 mm 


COURRIER *+ L'ECHO DU PCW N°20 ÉD nn 





La façon de saisir un programme Basic a fait l'objet d'une 
étude approfondie dans l'ECHO du PCW N°1 dans “Un 
départ saisissant” qui reste complémentaire au livre 2 livré 
avec les PCW. 

Résumé : 

Allumez l'ordinateur et insérez la face 2 de la disquette 
système. A l'affichage de "A>" tapez BASIC suivi d'une 
pression sur [RETURN]. Une fois sous Basic, lancez la 
numérotation automatique par AUTO+[RETURNI]. 

A chaque numéro de ligne affiché, tapez son contenu 
conformément au listing de l'article. 

Pour sortir du mode AUTO afin de corriger une ou plusieurs 
lignes, tapez [STOP]. 

Pour corriger une ligne, tapez EDIT suivi de son numéro et 
d'une pression sur [RETURN]. 

Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, taper LIST [RETURN] 

Exemple : LIST 10 [RETURN] ou LIST -100 [RETURN] ou 
LIST 10 -100 [RETURN] ou LIST [RETURN] 


Faites des sauvegardes régulières du programme, même en 
cours de saisie, en mettant une disquette vierge en A et en 
tapant : SAVE "Nom du programme" [RETURN]. 

Exemple : SAVE "ECHO" [RETURN]. 


CONSEILS : Ne lancez jamais un programme avant d'en avoir 
fait une sauvegarde. Utilisez les mêmes noms que ceux conseillés 
par l'auteur (dans son article ou sur la disquette qui l'accompagne). 
Vérifiez ligne par ligne que ce que vous avez tapé est strictement 
identique à ce qu'indique le listing. Soyez particulièrement 
vigilant dans les cas suivants : Ne confondez pas : point virgule 
et deux points,point et virgule, | majuscule et i minuscule ou le 
chiffre 1. 

Respectez : les espaces, les guillemets, les REM et les numéros de 
lignes. Ne modifiez pas un programme avant d'être certain qu'il 
fonctionne totalement. Les erreurs se produisent rarement dans la 
ligne responsable de ceux-ci. Seule SYNTAX ERROR ou erreur de 
syntaxe dans la saisie, arrive dans une ligne mal écrite. C'est pour 
cette raison que le BASIC MALLARD l'édite automatiquement. 
Dans tous les cas, reportez-vous à l'annexe Il du manuel Amstrad. 


anpnnanats 





NOUVEAU : LA RUBRIQUE CONTACT POUR RENCONTRER LES PCWISTES 


DE VOTRE REGION | 


- Pour garantir le sérieux des annonces, L'ECHO DU PCW demande 50 F par passage. 
- Les rubriques disponibles sont : VENTE, ACHAT, CONTACT, OFFRE DE SERVICE, 


DEMANDE D'EMPLOI, OFFRE D'EMPLOI, CLUB et DIVERS. 
- Les annonces de DEMANDE D'EMPLOI sont gratuites. 


#8 ss 
— Vend PCW 8256 complet “> Dans l'obligation de rester —? hformaticien et Electroméca- 
neuf, lecteur + imprimante:en au domicile, je recherche tra-  cien de formation (12 et 20 ans cherche contacts possesseurs 
panne, moniteur + clavier: vail indépendant outravaux d'expérience). Ancien agent de PCW sur région TRRN/TOU- 
marche. Pour bricoleur oupiè- réalisables à mon domicile. maîtrise. Habitude du contact avec LOUSE, pour échanges en tous 
ces. PRIX : 1500 F + port. Courts déplacements possibles. les clients. Cherche place Vendeur- genres, aide : programmes, 
Mr MONNIER Joël basic ou autre, freewares, li- 
58 98 53 09. vres … Sylvain BERBIE 

Æ 63 41 43 30 (+18h). 

— Qui d'autre désire enfin 
recevoir une revue sur disq. 
pour PCW bourrée d'infos, 
d'astuces et de prog. Contre 
seulement { disq. vierge + 2 
timb. à 0. PERS (E20), FRAN- 
CE PCW CLUB, 16 av. du Val 
















SERRES DEN S 


+ Pro 


Toutes suggestions et propositions Conseiller ou électromécanicien 
concrètes bienvenues.Discrétion 
assurée. M'écrire à ELIE BP N°1 
81190 MIRANDOL. 


d'entretien. Régions APT, MAR- 
SEILLE, VITROLLES. Faire offre à 
Mr LAURENT J.Paul rue de la Poste 
04110 CERESTE. 





— Vend 100 F port compris 
un programme complet de 
déclinaisons latines et 
allemandes à l'usage des 


— Stop aux textes mal trai- 
tés une vraie professionnelle 
traducteurs et des à votre porte. RAPPORTS, 
enseignants. Ecrire à : THESES, AMM sur PC+laser 
Mr ARCHIMBAUD 9rue Culet C'est urgent? J'arrive. 





+ Nouveau ! Club Inter PCW 
sur disquette: NEWS, PROGS,GRA- 
PHISMES, ASSEMBLER... 


Ecrire avec 2 timbres à NIELSEN F. ; 
de l'Orne 69630 CHAPONOST. Le) (1) 48 67 30 86. 3 rue Pasteur 74200 THONON. de Loire 45430 CHEVY. 
ECRIVEZ LISIBLEMENT EN LETTRES CAPITALES. TARIF ANNONCE : 
DEMANDE D'EMPLOI] : GRATUITE 
AUTRE ANNONCE 


FORFAITRIRE : 50 F TTC (dont TVA 18,6%=7,84 F) 

Ligne supplémentaire : 10 F TTC (dont TVA 18,6%=1,57F) 

* Ce bon de commande tient lieu de facture. Gardez-en un double pour votre comptabi- 
lité. La rédaction se réserve le droit de refuser toute annonce sans avoir à le justifier 
Les annonces non accompagnées du règlement seront retournées à leurs expéditeurs. 









Adresse 









LIGNE SUPPLEMENTAIRE 
TOTAL A REGLER 50 F + 





REGLEMENT À L'ORDRE LE LOG] STICK PAR : 








CHEQUE CCP MANDAT VISA/CB * 
numéro LL 1 LL 1 1 1 1 1 | | | | | | j signature obligatoire 
(celle des tuteurs 
datede Validité sssssssissnenssneensssessererss pour les lecteurs mineurs) 


RC PETITES ANNONCES : L'ECHO DU PCW N° 20 
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V CC CZ 


PARTAGER NOTRE SOIF DE QUALITÉ 
EN DÉCOUVRANT NOTRE CATALOGUE 
DE MATÉRIELS EF DE LOGICIELS 
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DUPLICATION ET DIFFUSION INFORMATIQUES 


Centre d'Affaires PARIS NORD “Le Bonaparte” Boîte 37 - 93153 LE BLANC MESNIL CEDEX 
TEL. (1) 48 67 28 44+ 


VENTE EXCLUSIVE AUX REVENDEURS CONQUERANTS 








